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PREFACE 



Relocatable Subroutines is a programmer's reference to all the subroutines of the various 
Hewlett-Packard Relocatable Libraries. It should be used in conjunction with the appropriate 
language and system manuals. 

The Introduction explains the Relocatable Libraries, their relationships, and their uses. 
Section I contains all of the mathematical subroutines from all of the libraries, arranged 
alphabetically by subroutine name. Section II provides a similar listing of the utility sub- 
routines. Section III is dedicated entirely to the three versions of the Formatter. 

There are also indices that give page references for each routine of each library and an index 
of all the entry points mentioned in the book. 
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INTRODUCTION 



INTRODUCTION 



Every Hewlett-Packard operating system that has a relocating loader (BCS, RTE, DOS, UOS-M) also has 
one or more Relocatable Libraries. The subroutines in these libraries perform mathematical and 
utility functions for user programs. The Relocating Loader links each user program with the sub- 
routines that it needs. 

From the library point of view, an operating system has four characterisitcs: 

1. The system is disc-based (RTE, DOS, etc.) or is not (BCS). 

2. The system includes EAU (Extended Arithmetic Unit) or does not. 

3. The system includes the hardware floating-point option or does not. 

4. The system includes extended precision arithmetic and formatting (FORTRAN IV library) or 
does not. 

For each possible operating system there are two appropriate libraries: a standard library (BCS or 
disc-based, EAU or non-EAU, hardware floating-point or non-hardware floating-point) and an optional 
FORTRAN IV Library. (There are also special libraries for 4K BCS installations.) Each library has 
a five-character product number. These libraries include: 

24147 Non-EAU FORTRAN Library (4K) 

24148 EAU FORTRAN Library (4K) 

24249 4K BCS Relocatable Library-Floating Point 

24145 EAU Relocatable Library (BCS) 

24146 Non-EAU Relocatable Library (BCS) 

24149 BCS FTN IV Library 

24250 BCS Relocatable Library-Floating Point 

24150 Non-EAU RTE/DOS Relocatable Library (without HP FORTRAN Formatter) 

24151 EAU RTE/DOS Relocatable Library (no Formatter) 

24152 RTE/DOS FORTRAN IV Library (with FORTRAN IV Formatter) 

24153 RTE/DOS HP FORTRAN Formatter 

24248 RTE/DOS Relocatable Library-Floating Point 

In addition there are two Plotter libraries that support the printing of graphs: a BCS version and 
an RTE/DOS version. 



IX 



The chart below shows the decision process for choosing the correct libraries for any possible 
system configuration: 



(4K NON EAU USE 24147 
4K EAU USE 24148 
4K FLOATING POINT USE 24249 
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FTN \ 
IV y 


YES 
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iv y 

>v ? yS 
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HP 
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FORMATTER 
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EAU AND FLOATING-POINT PHILOSOPHY 

The floating-point hardware option provides hardware floating-point add, subtract, multiply, 
divide and conversion between fixed- and floating-point values. 

The Extended Arithmetic Unit provides hardware multiply, civide and double load-store. In order 
to promote compatabil ity between different systems, all compilers generate non-EAU code. That is, 
code generated by the FORTRAN compiler calls the multiply subroutine rather than using the hard- 
ware instruction. At run-time, if the system contains an EAU library, these subroutine calls are 
replaced by the corresponding EAU hardware instruction. Similar operation occurs for floating- 
point instructions. 

ORGANIZATION OF THIS BOOK 

This book is organized into three sections plus several indices. Since many subroutines appear 
in more than one library, each subroutine is documented only once. All mathematical subroutines 
are grouped into Section I, ordered alphabetically by name. All utility subroutines are covered 
in Section II, also ordered alphabetically. Section III covers all the Formatters. 

For each library, there is an index that lists the subroutines in the order they appear in the 
library. With each subroutine is a page reference. 

The final index provides an alphabetic list, with page references, of every entry fipjnt mentioned 
in the book. This is provided in case you know the entry point of a routine, but not the name. 



The Page Format 

Each subroutine is documented on a page of standard format. (See the sample page.) The following 
items may appear for each subroutine: 



'NAME" 



The name of the routine record in the NAM record. 



Purpose The use of the routine. 

Entry Points The entry points to the routine. If these are centered, 

they apply to both the BCS version and the DOS/RTE version 
of the routine. An entry of "N/A" means the routine is 
not available in that system. After the DOS/RTE entry 
point, there is a letter in parentheses giving the type of 
the routine: U for utility, P for privileged, and R for 
re-entrant. 
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External References 



These are other subroutines that are called by the sub- 
routine. If centered, they apply to both versions of the 
routine; if divided into two columns, they are different 
for the two versions. If the DOS/RTE version is type P 
or R, then it also references $LIBR and $LIBX. 



Calling Sequences 



This is the assembly language calling sequence for each 
entry point. If there is only one calling sequence, it 
is centered. The arrow {-*) indicates a return point. "A" 
and "B" indicate the A- and B- registers. 



Method 



This gives the algorithm for producing the result and/or 
the accuracy of the routine. 



Attribute Chart 



For each entry point, this chart gives the following in- 
formation: 

a. Parameters: their type (real, integer, double 
real or complex) and whether they are loaded into 
the A- and B- registers. 

b. Result: the type of the result and the registers 
(if any) where it is returned. 

c. Basic FORTRAN: whether the routine is an intrinsic 
function (i.e., ABS(x)), callable subroutine, or 
uncallable in HP FORTRAN. 

d. FORTRAN IV: Whether the routine is an intrinsic 
function, callable subroutine, or uncallable in 
HP FORTRAN IV. 

e. ALGOL: whether the routine is an intrinsic, call- 
able or uncallable procedure in HP ALGOL. 

f. ERRORS: This gives a summary of any error conditions 

in this format: 

condition ■+ (message or code) 

(If the condition occurs, the message is 
printed. ) 
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SAMPLE PAGE FORMAT 



NAME 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 

Result: 

Basic FORTRAN: 

FORTRAN IV: 

ALGOL : 

Errors: 
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LOADING SEQUENCES 

If two libraries are used with an operating system, they must be loaded in a specific manner. 

In BCS, the FORTRAN IV Library must be loaded before the standard library. 

In disc-based systems, either the FORTRAN IV Library or the HP FORTRAN Formatter must be loaded 
in addition to the standard library. 
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SECTION I 



MATHEMATICAL SUBROUTINES 



ABS 



PURPOSE: Calculate the absolute value of a real x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


ABS (?) 


. .FCM 


DLD x 

JSB ABS 

-> result in A & B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



ABS 


Real: 


A & 


B 




Real: 


A & 


B 




Function: 


ABS 


(x) 


Funct 


ion: 


ABS 


(x) 


Intrinsic 


ABS 


(x) 


None 
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AIMAG 



PURPOSE: Extract the imaginary part of a complex x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 








DOS/RTE(TYPE) 


AIMAG (P) 


. ENTR 


.ENTP 




JSB AIMAG 
DEF *+2 
DEF x 
■* result in 


A 


& B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



AIMAG 



Complex 



Two-word imaginary: A & B 



Callable as function 



Intr. function: AIMAG (x) 



Callable as real procedure 



None 
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AINT 



PURPOSE: Truncate a real x: 

y = SIGN (x). (largest integer < 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES; 

CALLING 
SEQUENCES: 



BCS 



or y = [x] 
DOS/ RTE (TYPE) 



AINT (P) 



.FLUN 
.PACK 



DLD x 
JSB AINT 

■+ y in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



AINT 



Real: A&B 



Real: A&B 



Not callable 



Function: AINT (x) 



Not callable 



None 
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ALOG 



PURPOSE: Calculate the natural logarithm of a real x: 

y = In (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/ RTE (TYPE) 



LN (R) 
ALOG 



.FLUN, .MANT, FLOAT, .ERRR 



DLD x 

JSB ALOG (or LN) 

■+ return (y in A, B) 



METHOD: Let r = mantissa (x) 

(that is, x = 2 x f) Then y = i + log 2 F 



where 



and 



Z = F- /~2~/2 

f+ ^2/2 



c ] = 1.2920070987 
c 2 = 2.6398577035 
c 3 = 1.6567626301 



.FLUN, .MANT, FLOAT 



DLD x 

JSB ALOG (or LN) 

JSB ERR0 (error return) 

-» return (y in A & B) 



i = characteristic (x) 



. (log e 2) = log e 2/j + z 



c 1+ JX 



c 3 - z 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 




ALOG 




LN 




Real: A & B 




Real: A & B 




Real: A & B 




Real: A & B 




Function: ALOG(x) 




Not Callable 




Function: ALOG (x) 




Not Callable 




Not Callable 




Intrinsic Procedure 




x - ■> (02 UN) 




Same 





NOTES: 



ALOG is the FORTRAN entry point; LN is the ALGOL entry point. 
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ALOGT 



PURPOSE: 



Calculate the common logarithm (base 10) of real x: 

y = log 1Q x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 


DOS/RTE (TYPE) 




ALOGT (U) 


ALOG 


DLD x 

JSB ALOGT 

■+ normal return (result in A&B) 


DLD x 

JSB ALOGT 

■+ error return 

■* normal return (result in 


A&B) 



y = log 1Q x = log 10 e*log e x 

Accuracy depends on the accuracy of ALOG. 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


ALOGT 


Real 




Real: A&B 


Not Callable 




Intr. Function: ALOGT (x) 


Not Callable 


If x - ■* (02 UN) 
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AMOD 



PURPOSE: Calculate the real remainder of x/y for real x and y: 

z = x modulo y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 








DOS/RTE(T 


YPE) 




AMOD (P) 


.ENTR 
AINT 


.ENTP 
AINT 




JSB AMOD 
DEF * + 3 
DEF x 
DEF y 

->■ z in A & 


B 









METHOD: 



x - [x/y] * x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



AMOD 


Real 




Real; A&B 


Callable as Function 


Intrinsic Function: AMOD (x,y) 


Callable as Real Procedure 


If y = 0, then z = x 
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ATAN 



PURPOSE: Calculate the arctangent of a real x: 

y = tan" (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 


DOS/RTE (1 


YPE) 


ARCTA (R) 
ATAN 


.CHEB 


DLD x 

JSB ATAN (or ARCTA) 

■*■ return (y in A&B) 



if abs {x) > 1 then u = 1/x else u = x 

y = u * Cheby{2*u*u - 1) 

if abs (x) < 1 then answer = y 

else if x >"0 then answer = -n/2-y 

else answer = -tt/2-y 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


ATAN 




ARCTA 


Real: A&B 




Real: A&B 


Real: A&B (radians) 




Real : A & B (radians) 


Function: ATAN (x) 




Not Callable 


Function: ATAN (x) 




Not Callable 


Not Callable 




Intrinsic Function: ARCTAN(x) 


None 




None 



NOTES: l. ATAN is the FORTRAN entry point and ARCTA is the ALGOL entry point. 
2. Result ranges from -it/2 to n/2. 
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ATAN2 



PURPOSE: 



Ca 



lculate the real arctangent of the quotient of two reals: z = arctan (y/x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 





BCS 








DOS/RTE (TYPE) 


ATAN2 (R) 


.ENTR, 


SIGN, ATAN 




.ENTP, SIGN, ATAN 






JSB ATAN2 
DEF * + 3 
DEF Y 
DEF x 
* z in A & 


B 





If x = 0, z = sign (y) „/2 

If x > 0, z = arctan (y/x> 

If x < 0, z = arctan (y/x) + sign (y) 

Accuracy depends on accuracy of ATAN. 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 













ENTRY 


POINTS: 


ATAN 


2 












Real 














Real : 


A & 


B 








Callc 


ble 


as 


Function 






Intr 


Function: 


ATAN 2 (y, 


*) 




Callable 


as 


Rea 1 


Procedure 






None 



CABS 



PURPOSE: Calculate the real absolute value (modulus) of complex x: y = \x\ 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 



.ENTR, SQRT 



DOS/ RTE (TYPE) 



CABS (R) 



.ENTP, SQRT 



JSB CABS 
DEF *+2 
DEF x 

+ r in A 



y= \x\ = \x ]+ i*x 2 \ - / x 2 - x 2 

Accuracy depends on the accuracy of SQRT. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



CABS 



Complex 



Real: A&B 



ENTRY POINTS: 



Callable as Function 



Intr. Function: CABS (x) 



Callable as Real Procedure 



None 
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CADD 



PURPOSE: 



Add complex x to complex y: z = x + / (z is complex) 



BCS 



DOS/ RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CADE 
CADD 


(P) 




GETAD 
ADRES 


.PCAD 


JSB .CADD or 
DEF z (result) 
DEF x 
DEF y 


JSB CADD 
DEF * + 4 
DEF z (result) 
DEF x 
DEF y 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.CADD 




CADD 


Complex 




Complex 


Complex 




Complex 


Not Callable 




Callable 


Not Callable 




Callable 


Not Callable 




Callable 


None 




None 



1-10 



CDIV 



PURPOSE: 



Divide complex x by complex y: z = x/y 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CDIV (P) 
CDIV 


GETAD 
ADRES 


.PCAD 




JSB .CDIV or JSB CDIV 
DEF z (result) DEF * + 4 
DEF x DEF z (result) 
DEF y DEF x 
DEF y 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.CDIV 




CDIV 


Complex 




Complex 


Complex 




Complex 


Not Callable 




Callable 


Not Callable 




Callable 


Not Callable 




Callable 


None 




None 
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CEXP 



PURPOSE: Calculate the complex exponential of a complex x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 


DOS/RTE (TYPE) 


CEXP (R) 


.ENTR, EXP, 

SIN, COS 


.ENTP, EXP, 
SIN, COS 


JSB CEXP 

DEF *+3 

DEF y (result) 

DEF x 

■* Normal return 


JSB CEXP 

DEF *+3 

DEF y (result) 

DEF x 

■+ Error return 

■* Normal return 



y } + i-y 2 = 



e x = e x i + i x 2 



e x 1 (cos x + i .sin x 9 ) 



Accuracy: depends on the accuracy of EXP and SIN. 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



CEXP 



Complex 



Complex 



Not Callable 



Intr. Function: CEXP(x) 



Not Callable 



Note 1 



NOTES: 1. If x-| • log 2 e > 124, ■+ (07 OF). 



If I I & 



+ i 



>2 14 ^(05 OR). 



1-12 



CHEBY 

PURPOSE: Evaluate the chebyshev series at a real x for a particular table of coefficients c. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 


DOS/RTE(TYPE) 


.CHEB (R) 


None 


DLD x 

JSB .CHEB 

DEF c (table, note 1) 

■* result in A & B 



T i = 2 • T i-1 - T i-2 + c n-i (i = 

where 

T -2 = T -l = ° 

n = number of coefficients 
Answer = T n _ 1 - T n _ 3 



),!,.. ..,n-i; 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.CHEB 


Real 


Real 


Not Callable 


Not Callable 


Not Callable 


TAN(x) for x 


close 


to 


tt/2 



NOTES: 



1. Table c consists of a series of real coefficients terminated by an 
integer zero. 
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CLOG 



PURPOSE: Calculate the complex natural logarithm of a complex x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 


DOS/RTE (TYPE) 


CLOG (R) 


.ENTR, ALOG 
CABS, ATAN2 


.ENTP, ALOG 
CABS, ATAN2 


JSB CLOG 

DEF *+3 

DEF y (result) 

DEF x 

■* Normal return 


JSB CLOG 

DEF *+3 

DEF y (result) 

DEF x 

■+ Error return 

-> Normal return 



y 1 + i-y 2 = log e x = log e (x ] + i.x 2 ) = log e (r) + i.C 



where 



e = arctan/ x. 



Accuracy depends on the accuracy of ALOG and SQRT. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



CLOG 


Complex 


Complex 


Not Callable 


Intr. Function: 


CLOG(x) 


Not Callable 


If x = - (02 UN) 
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CMPLX 

PURPOSE: Combine a real x and an imaginary y into a complex z. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 






DOS/RTE(TYPE) 




CMPLX (P) 




.ENTR 


.ENTP 




JSB CMPLX 
DEF *+4 
DEF z 
DEF x 
DEF Y 






-y 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



CMPLX 


Real & Imaginary 


Complex 


Callable 


Intr. Function: 


CMPLX 


[x 


Y) 


Callable 


None 
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CMPY 

PURPOSE: Multiply complex x by complex y: z = x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 








DOS/ RTE (TYPE) 




.CMPY 
CMPY (P) 


GETAD 
ADRES 


.PCAD 


JSB .CMPY 
DEF z (resi 
DEF x 
DEF r 

-> 


ilt) 


or 


JSB CMPY 
DEF * + 4 
DEF z (result) 
DEF x 
DEF y 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.CMPY 


CMPY 


Complex 


Complex 


Complex 


Complex 


Not Callable 


Callable 


Not Callable 


Callable 


Not Callable 


Callable 


None 


None 



1-16 



CONJG 



PURPOSE: Form the conjugate y of a complex x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 








DOS/RTE (TYPE) 


CONJG (P) 


.ENTR 








.ENTP 


. .FCM 








..FCM 




JSB CONJG 








DEF ' + 3 








DEF y (resi 


lit) 






DEF x 








-> 







METHOD: 



If x 



x, + i -x , then y = x, - i-x 
12 12 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



CONJG 



Complex 



Complex 



Callable 



ENTRY POINTS: 



Intr. Function: CONJG (x) 



Callable 



None 
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CSNCS 

PURPOSE: Calculate the complex sine or cosine of complex x: y = sine (x) 

y = cosine (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 




DOS/RTE (TYPE) 


CSIN (R) 
CCOS 


.ENTR, SIN, COS 
EXP, . .FCM 


.ENTP, SIN, COS 
EXP, ..FCM 


JSB CSIN (or CCOS) 

DEF * + 3 

DEF y 

DEF x 

JSB error routine 

■+ Normal return 



Sine: y = Y, + i-Y„ = sin (x) = sin (x, + i-x„) 



sir(x l ' (e x 2 + e" X 2) + i 
2 



cos(x 2 J Ue X 2 - e" x 2) 



'-) ( 



Cosine: y = Y, + Y ? . i = cos(x) = cos(x. + i.x ? ) 



cosfx^ Ve x 2 



+ e" x 2) +/i'Sin(x 1 )V 



e x 2 - e" x 2) 



Accuracy depends on the accuracy of EXP and SIN. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



CSIN 




CCOS 




Complex 




Complex 




Complex 




Complex 




Not Callable 




Not Callable 




Intr. Function: 


CSIN (x) 


Intr. Function: 


CCOS (x) 


Not Callable 




Not Callable 




Note 1 . 




Note 1 . 





NOTES: 



1. vj-l ~ + j\>2 1 ^ (05 OR) 



x 2 -log 2 e > 124 -* (07 OF) 
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CSQRT 

PURPOSE: Calculate the complex square root of complex x-. y = y-j + i-y 2 = /x^+i .x 2 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 








DOS/RTE (TYPE) 


CSQRT (R) 


.ENTR, ..DLC, 
SQRT, CABS 


.ENTP, ..DLC, 
SQRT, CABS 




JSB CSQRT 
DEE * + 3 
DEF y (resi 
DEF x 


lit) 





If X = 0, Y = 

If X ] > 0; Y ] = /x 1 + |X| , Y 2 = X 2 



2Y 



If X, < C; Y„ = sign(X„) / -X, + |X 



' Y l = h 
2Y, 



Accuracy depends on the accuracy of SQRT. 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



CSQRT 



Complex 



Complex 



Callable 



Intr. Function: CSQRT (x) 



Callable 



None 
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CSUB 

PURPOSE: Subtract complex y from complex X: z = x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 








DOS/RTE(TYPE) 






.CSUB 
CSUB 


(P) 




GETAD 
ADRES 


.PCAD 


JSB .CSUB 
DEF z (resi 
DEF x 
DEF y 


lit) 


or 


JSB CSUB 
DEF * + 4 
DEF z (result) 
DEF x 
DEF y 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.CSUB 




CSUB 


Complex 




Complex 


Complex 




Complex 


Not Callable 




Callable 


Not Callable 




Callable 


Not Callable 




Callable 


None 




None 
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DABS 



PURPOSE: Calculate the absolute value of a double real x: y = \x\ 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (1 


YPE) 


DABS (P) 


..DCM, .XFER 




JSB DABS 








DEF *+3 








DEF y 








DEF x 








-J- 







ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DABS 


Double Real 


Double Real 


Callable 


Function: 


DABS (x) 


Callable 


NOTE 1 



NOTES: 



127 



1. If x = Smallest negative number (-2 

y = Largest positive number [(1-2" 
and the overflow bit is set. 



), then 

2""] 
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DATAN 

PURPOSE: Calculate the double real arctangent of double real x: r = arctan (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 


DOS/RTE(TYPE) 


DATAN (R) 


.XADD, .XSUB, 


.XMPY, .XDIV, .XFER, ..DCM, .FLUN 




J SB DATAN 




DEF *+3 




DEF y (result) 




DEF x 




■* 



If x < 0, y = -arctan(-x) 

If U|>1, let z = T_ » then y = j_ - arctan(z) 

\x\ 2 

If |x|<l, let z = \x\ 

If z < /2~- 1, set v = tan n |- , w=,l 



16 



If z < /2~- 1, set v = tan |^ 



"16 



16 



Then r 



l+z> 

Arctan(z) = w+ arctan(r) 
Arctan(r) = 



C + 



^[(r^) (/+b 3 )+c 3 ] 



(^+3^ [(r 2 +B 2 ) (r 2 +B 3 )+c 3 3+c 2 (r 2 +B 3 ) 



.208979591837 
2.97061224490 
-3.35025248131 
-.128720995297 



5.10299532839 
2.58417875505 
1.21282591656 



Accuracy: The relative error in y = arctan (x+ Ax) is r = 



AX 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



(x +1 ) arctan (x) 
where ax represents the round-off error in x. Hence, at 
x = +.001, the accuracy will be 9 significant digits due to 
the round-off error in the 39th bit of x. As x diverges from 
0, the accuracy becomes 11 significant digits. 

ENTRY POINTS: 



DATAN 


Double Real 


Double Real 


Callable 


Intrinsic Function: 


DATAN {x) 


Callable 


None 
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DATN2 

PURPOSE: Calculate the double real arctangent of the quotient of two double reals: 

z = arctan (y/x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 








DOS/RTE (TYPE) 


DATN2 (R) 


.ENTR, 
.XADD, 


DSIGN, 
.XDIV, 


DATAN 
.XFER 




.ENTP, DSIGN, DATAN 
.XADD, .XDIV, .XFER 


JSB DATN2 
DEF *+4 

DEF z (result) 
DEF y 
DEF x 



METHOD: 



If x = 0, z = sign (r). ^ 
2 
If x > 0, z = arctan {y/x) 

If x < 0, z = arctan [y/x) + sign (y) . u 

Accuracy depends on accuracy of DATAN. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



DATN2 


Double Real 


Double Real 


Callable 


Intrinsic Function: 


DATN2 (Y.X) 


Callable 


None 
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DBLE 



PURPOSE: Convert a real x to a double real y. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


DBLE (P) 


.FLUN, .XFER, .XPAK 


JSB DBLE 
DEF *+3 

DEF y (result) 
DEF x 

> 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



DBI.E 



Real 



Double Real 



Callable 



Intrinsic Function: DRI F (y) 



_CaJJLab_Le_ 



None 
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DCOS 



PURPOSE: Calculate the double real cosine of double real x: y = cos (x) 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



DCOS (R) 


.ENTR, 
.XFER, 


DSIN, 
.XADD 




.ENTP, DSIN, 
.XFER, .XADD 






JSB DCOS 
DEF *+3 
DEF y (result) 
DEF x 







y = cos (x) = sin (x + n/2) 

Accuracy depends on the accuracy of DSIN. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 




DCOS 


Double Real 


Double Real 


Callable 


Intrinsic Function: 


DCOS (x) 




Callable 


None 
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DDINT 



PURPOSE: Truncate a double real x to a double real Y: 

y = sign (x). (Largest integer <_ \x\), or r= W 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 






DOS/RTE (TYPE) 


DDINT (P) 


.ENTR, 
.FLUN, 


.XFER, 
.XPAK 






.ENTP, 
.FLUN, 


.XFER 
.XPAK 






JSB DDINT 
DEF *+3 
DEF Y 
DEF x 

















ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



DDINT 



Double Real 



Double Real 



Callable 



Intrinsic Function: DDINT (x) 
Callable 



None 
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DEXP 



PURPOSE: Calculate the double real exponential of a double real x: y = e 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


DEXP (R) 


. ENTR , . ERRR , . XPAK, . XADD , . XSUB , . XMPY , 
.XDIV,.FLUN > DDINT,SNGL,IFIX,.XFER 


.ENTP,. XADD,. XSUB,. XMPY,. XDIV, 
DDINT,SNGL,IFIX,.FLUN,.XPAK,.XFER 


JSB DEXP 

DEF *+3 

DEF y (result) 

DEF x 

■+ normal return 


JSB DEXP 

DEF *+3 

DEF y (result) 

DEF x 

■* error return 

-* normal return 



METHOD: 



Co 
C n 



" e z 



Co + 

1.0 
40.0 



where: z = ln2 (xlog ? e-w) 

n = [Arlog 2 e+l/2] (see DD1NT) 

C 1 (z(z 2 +C 4 )+C 3 z) 



(z+B 1 )(z(z 2 +C 4 )+C 3 z)+C 2 (z 2 +C 4 ) 



138.0 



12.17391304348 



C 3 = 29.8260869565 



B 1 = -20.0 



X 4" AX 

Accuracy: The relative error in y =e is r = Ax where A* represents 

the error in the argument. THus for \x\ <1 , the accuracy will 
be 11 significant digits, but for |x|near 100, the accuracy 
will be 8 significant digits. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


DEXP 


Double Real 


Double Real 










Not Callable 


Intrinsic Fun 


cti 


an: 


DEXP (x) 




Not Callable 


If e x > (1-2" 


39 > 


2 I27 


- (10 OF) 
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DIM 



PURPOSE: Calculate the positive difference between real x and y. z = x - min (x,y) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 










DOS/RTE (T 


YPE) 


DIM (P) 


. ENTR 


.ENTP 




JSB DIM 












DEF *+3 












DEF x 












DEF y 












■+ z in A 


& 


B 







ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DIM 


Real 


Real 


Callable 


Intrinsic 


Functi 


on: DIM 


(x.y) 


Callable 


as Real 


Procedut 


~p 


None 
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PURPOSE: 



DIV 

(non-EAU Libraries only) 
Divide a two-word integer i by the one-word integer j.- k = i/j 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 







BCS 












DOS/RTE(TYPE) 
















.DIV 


(U) 










None 


DLD i 
DIV j 
-*■ result 


in 


A, remainder 


in 


B 


or 




DLD I 

JSB..DIV 

DEF j 

-* result in A, remainder 


in 


B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DIV 


Two-word integer (Note 1), integer 


Integer quotient and remainder in A&B 


Not callable 


Not callable 


Not callable 


-32768 > quotient > 32767 -*■ overflow, quotient «- 


32767 



NOTES: 

1. 



B contains most significant bits, A least. 
See MPY. 
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PURPOSE: 



DLDST 

(non-EAU libraries only) 
Store x, a two-word quantity in the A and B registers, into memory 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 




DOS/RTE(TYPE) 


.DLD (U) 
.DST 


GETAD, ADRES 


JSB .DLD 
DEF x 




or 


DLD x 


■* 








JSB .DLD 
DEF x 




or 


DST x 

->- 


-)- 









ATTRIBUTES: 

Call 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 




.DLD 






.DST 


Two-word quantity 






Two-word quantity: A&B 


Two-word quantity: A&B 






Two-word quantity 


Not callable 






Not callable 


Not callable 






Not callable 


Not callable 






Not callable 


None 






None 
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DLOG 



PURPOSE: Calculate the double real natural logarithm of a double real x: 

¥ 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



iog e x 



BCS 



DOS/RTE(TYPE) 



DLOG (R) 


.ENTR, 
.XDIV, 


.ERRR, .XADD, .XSUB, 
.XFER, .FLUN, FLOAT, 


.XMPY, 
DBLE 


.ENTP, 
XFER, 


.XADD, .XSUB .XMPY, 
.FLUN, FLOAT, DBLE 


.XDIV, 


JSB DLOG 

DEF *+3 

DEF y (result) 

DEF x 

■* normal return 


JSB DLOG 

DEF *+3 

DEF y (result) 

DEF x 

->■ error return 

-> normal return 



ln(x) = (n-l/2)ln2 + In /1+z 

v- z 

where: n = EXPON(x) 
m = MANT(x) 
z = m - /2~7 2 



m + /2~/ 2 



In ]+z 
1-z 



[■ 



Cl [(z 2 +B 2 )(z 2 +B3)+C 3 ] 



(z 2 +B,)[(z 2 +B 9 )(z 2 +B,)+Co]+C 9 (z 2 +B.) 



] 



T L1 ' u 2 
-18.4800000000 

-23.643709825 

-.246270037272 



J 3' ^3 J 

3 1 



2 ^ '" 3 ; 
-15.8484848485 
-3.75400078147 



B 3 = -1.39751437005 



Accuracy: See NOTE 1. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DLOG 


Double real 


Double real 


Not callable 


Intrinsic function: 


DLOG (x) 


Not callable 


If x 10 - (11 UN} 



NOTES: 



1. The relative error in y = ]n(x+hx) 



is r = lx . 
Hnx 



Hence, the relative 



error increases as x approaches 1. At x = 1 .000 + .001 the accuracy 
will be 9 significant digits due to an error in the 39th bit in the 
representation of x. As x diverges from 1 the accuracy becomes 11 
significant digits. 
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DLOGT 



PURPOSE: Calculate the double real comman logarithm of double real x: 

y = log 1Q x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 




DOS/RTE(TYPE) 


DLOGT (U) 


.ENTR, DLOG, .XMPY 


.ENTP, DLOG, .XMPY 


JSB DLOGT 

DEF *+3 

DEF y (result) 

DEF x 

->■ normal return 


JSB DLOGT 

DEF *+3 

DEF y (result) 

DEF x 

■* error return 

■+ normal return 



log e x 



y = log 1Q x 

Accuracy depends on the accuracy of DLOG. 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



Dl OCT 



Double Real 



Double Real 



Not Callable 



Intrinsic Function? ni OCT (v) 



N ot C flllflhl R 



If * < -> (11 II 
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DMOD 

PURPOSE: Calculate the double real remainder of two double real values: 

z = x mod y (z = x - [x/y]y) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 







BCS 






DOS/RTE CM 


CPE) 




DMOD (P) 


.ENTR, 


.XSUB, 


.XMPY, 


.XDIV, 


DDINT 


.ENTP, .XSUB, .XMPY, 


.XDIV, 


DDINT 


JOB DMOD 

DEF *+4 

DEF z (result) 

DEF x 

DEF y 

-y 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 




DMOD 


Double Real 


Double Real 


Callable 




Intrinsic Function: DMOD (x.y) 


Callable 


If y = 0. then z = x 
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DSIGN 

PURPOSE: Transfer the sign of a double real ^ to a double real y: 

z = sign (y) . \x\ 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






dos/rteC 


rYPE) 


DSIGN (P) 


.ENTR, 


.XFER, 


. .DCM 




.ENTP, .XFER, 


..DCM 








JSB DSIGN 
DEF *+4 
DEF z (result) 
DEF x 
DEF y 










-y 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


DSIGN 


Double Real 


Double Real 


Callable 


Intrinsic Function: 


DSIGN (x,y) 


Callable 


If y = 0, z = 0. 
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DSIN 



PURPOSE: Calculate the double real sine of double real x: 

y = sin (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 



DOS/RTE (TYPE) 



DSIN (R) 



.ENTR, .XFER, .XPLY, .XADD, 
.XSUB, .XMPY, .XDIV 



.ENTP, .XFER, .XENT .XPLY, 
.XADD, .XSUB, .XMPY, .XDIV 



JSB DSIN 
DEF *+3 
DEF y 
DEF x 



x is reduced to the range -jr_ <_ x < tt_ 

2 2 

If x <10" 6 , sin (x) = x. 

Otherwise sin (x) =/6 



C 1 = -.166666666667 E+0 
C .833333331872 E-2 



E C.x 2l +1) x 
<i=l 1 

-.198412663895 E-3 
.275569300800 E-5 



.250294478915 E-7 
.154001500048 E-9 



When x is near a non-zero multiple of tt, the accuracy of the 
result is limited by the accuracy of the subtraction n-n -x. 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 




DSIN 


Double Real 


Double Real 






Callable 


Intrinsic Function: 


DSIN (x) 




Callable 


None 
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DSQRT 

PURPOSE: Calculate the double real square root of double real x: y = sqrt {x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 


DOS/RTE(TYPE) 


DSQRT (R) 


.ENTR, DBLE, SNGL, SQRT, .XDIV, 
.XADD, .FLUN, .XPAK, .XFER 


.ENTP, DBLE, SNGL, SQRT, .XDIV, 
.XADD, .FLUN, .XPAK, .XFER 


JSB DSQRT 

DEF *+3 

DEF y (result) 

DEF x 

-* normal return 


JSB DSQRT 

DEF *+3 

DEF y (result) 

DEF x 

■* error return 

■+ normal return 



A first approximation is found using the 

single precision SQRT: z = SQRT (x) 

Then y = z+x/z 

2 
Accuracy is 11 significant digits. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



nSQRT 


Double Real 


Double Real 


Not Callable 


Intrinsic Funr.t.inn: 


n.SORT (y) 


Not Callable 


If x < + «M IINl 



1-36 



ENTIE 



PURPOSE- 1) Calculate the greatest integer not algebraically exceeding a real x (ENTIE); 

2) Round a real * to the nearest integer; for ties the algebraically larger .nteger 
(.RND). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE(TYPE) 



ENTIE (U) 
.RND 



None 



DLD x 

JSB ENTIE 

+ sign in A, integer in B 



DLD x 

JSB .RND 

■* result in A 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



ENTIE 



.RND 



Real 



Real 



Integer 



Integer 



Not Callable 



Not Callable 



Mot Callable 



Not Callable 



Intr. Funct: ENTIER (x) 
None . 



Not Callable 
None 
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ENTIX 

PURPOSE: Calculate ENTIER of double real X: 

y = ENTIER (x) = greatest integer not algebraically exceeding x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE (TYPE) 



.XENT (P) 
ENTIX 



.ENTR, XFER, .FLUN, .XPAK 



.ENTP, .XFER, .FLUN, .XPAK 



JSB .XENT(or ENTIX) 
DEF * + 3 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


ENTIX 


.XENT 


Double Real 


Double Real 


Double Real 


Double Real 


Callable 


Not Callable 


Callable 


Not Callable 


Callable 


Not Callable 


None 


None 
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EXP 



PURPOSE: 



Calculate e , where x is real. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


EXP (R) 


.ERRR, .IENT, 
FLOAT, .PWR2 


.IENT, FLOAT, 
.PWR2 


DLD x 
JSB EXP 

-*- (y in A & B) 


DLD x 

JSB EXP 

JSB ERR0 (error) 

-* (y in A & B) 



METHOD: 



Let i=ENTIER(x), and f=x*log ? e - 1 (see .IENT) 



2 1 * 



1 + 



2 C 
If 



where 



c 3 = 

c 4 = 



c 4 + c/ 



87.417497202 
617.9722695 
0.03465735903 
9.9545957821 



c 2 /(/ + c,) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



EXP 


Real : A & B 


Real : A & B 




Function: EXP (x) 


Function: EXP (x) 


Intr. Proc: EXP (x) 


x*log e I 124 ■* (07 OF) 



NOTES: 



1. If the error condition occurs, the overflow bit is set. 
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PURPOSE: 



FADSB 

(floating-point libraries only) 



Add real x to v. 
z = x + y 



Subtract real r from x: 
z = x - y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 




.FAD, . 


FSB (P) 


.FLUN, .PACK 


.FLUN, .PACK, .ZRLB 


DLD x 

JSB .FAD (.FSB) 

DEF y 

■* result in A&B 


or DLD x 

FAD (FSB) y 
■* result in A&B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.FAD 




.FSB 


Real 




Real 


Real 




Real 


Not Callable 




Not Callable 


Not Callable 




Not Callable 


Not Callable 




Not Callable 


See Note 1 




See Note 1 



NOTES: 



If the result is outside the range of representable floating point 
numbers [ -2 127 , 2 127 (l-2~ 23 )] the overflow flag is set and the 

1 28 -2? 

result 2 (1-2" ) is returned. If an underflow occurs, (result 
within the range (-2" 129 (l+2 -22 ) , 2" 129 )) the overflow flag is set 
and the result is returned. 
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PURPOSE: 



FDV 

(non-floating point libraries only) 
Divide real x by v. z = x/y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 


.FDV (P) 


.FLUN, .PACK 


.FLUN, .PACK, .ZRLB 


DLD x 

JSB .FDV 

DEF Y 

-> quotient in A&B 


or DLD x 
FDV y 
■* quotient in A&B 



ATTRIBUTES: 



Call: 

Parameters: 

Result: 

Basic FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 



ENTRY POINTS: 



.FDV 



Real 



Real 



Not callable 



Not callable 



Not callable 



See FADSB 
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PURPOSE: 



FLOAT 

(non-floating point libraries only) 
Convert integer i to real x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


FLOAT (P) 


.PACK 


LDA I 

JSB FLOAT 

-> (x in A & B) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



FIOAT 


Integer: 


A 




Real : A 


& B 




Function: 


FLOAT 


(x) 


Function: 


FLOAT 


(I) 


Not Callable 


None 



NOTE: 1. The FLIB routine exists in floating-point libraries only. It incorporates and 

replaces the FADSB, FDV, FMP, FLOAT, and IFIX routines found in non-floating- 
point libraries. FLIB entry points are: .FAD, .FSB, .FDV, .FMP, FLOAT, and 
IFIX. The calling sequences for the floating-point routines are the same as 
for the non-floating-point routines. The floating-point routines modify the 
calling JSB instruction to a hardware call; a routine is therefore entered only 
once for each subroutine call. 
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PURPOSE: 



FMP 

(non-floating point libraries only) 
Multiply real x by v. z = x*y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE(TYPE) 



.FMP (P) 



.FLUN, .PACK 



.FLUN, .PACK, .ZRLB 



DLD y 

JSB .FMP 

DEF x 

■* product in A&B 



or 



DLD y 
FMP x 
■* product in A&B 



ATTRIBUTES: 

Call 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.FMP 


Real 


Real 


Not 


callable 


Not 


callable 


Not 


callable 


See 


FADSB 
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IABS 



PURPOSE: Calculate absolute value of integer j. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE (TYPE) 



IABS (P) 



None 



LDA J 

JSB IABS 

■* (result in A) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


IABS 


Inteqer: A 


Inteqer: A 


Function: IABS (i) 


Function: IABS (i) 


Not Callable 


None 
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IAND 



PURPOSE: Take the logical product of integers i and J. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



IAND (U) 


None 


JSB IAND 






DEF i 






DEF j 






■+ result 


in 


A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


IAND 


Integer 


Integer 


Callable as function. 




Callable as function 


Not Callable 


None 
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IDIM 



PURPOSE: Calculate the positive difference between integers r & j: 

k = i - min (i,j) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






DOS/RTE (l 


YPE) 


IDIM (P) 


.ENTR 


.ENTP 






JSB IDIM 










DEF *+3 










DEF i 










DEF J. 










■> k in A 







ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


IDIM 


Integer 


Integer 


Callable 


Intr. functi 


on: IDIN 


(i,J) 






Callable as 


integer 


procedure 




None 
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IDINT 



PURPOSE: Truncate a double real X to an integer j: 

j = Sign (x) . (largest integer <_ | x | 

BCS 



or J 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DOS/RTE(TYPE) 



IDINT (P) 



SNGL, IFIX, 
DDINT 



JSB IDINT 
DEF *+2 
DEF x 

■* j in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


IDINT 


Double real 








Integer 


Callable 


as 


function 






Function 




IDINT (x) 






Callable 


as 


integer procedu 


re 




NOTE 1. 



NOTES: 



1. If IDINT (x) is out of range, then j 
set. 



32767 and the overflow bit is 
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PURPOSE: 



IFIX 

(non-floating point libraries only) 
Convert a real x to an integer i. 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES; 

CALLING 
SEQUENCES: 



IFIX (P) 


.FLUN 


DLD x 
JSB IFIX 

->• (x in A) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



IFIX 


Real: A & 


B 




Inteqer: 


A 




Function: 


IFIX 


(x) 


Function: 


IFIX 


(x) 


Not Callable 


None 



NOTES: 



1. Any fractional portion of the result is truncated. If the inteqer 

15 
portion is greater than or equal to 2 , the result is set to 32767. 
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INT 



PURPOSE: Truncate a real x to an integer j: 

j = Sign (x) . (largest integer 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 

SEQUENCES: 



or j 



BCS 




DOS/RTE (TYPE) 




INT (U) 


IFIX 




DLD x 

JSB INT 








+ j in A 







ATTRIBUTES: 



ENTRY POINTS: 



Parameters: 

Result: 

Basic FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 



NOTES: 



INT 


Real 


Integer 


Not callable 


Function: INT (x) 


Not callable 


Note 1 





1. If INT (x) is out of range, then j = 32767 and the overflow bit is set. 
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IOR 



PURPOSE: Take logical inclusive - or of integers i and J. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



IOR 


(U) 






None 


JSB 


IOR 






DEF 


J 






DEF 


J 






->■ result 


in 


A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


IOR 


Integer 


Integer 


Cal Table as function 


Callable as function 


Not Callable 


None 
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ISIGN 

PURPOSE: Calculate the sign of z times the absolute value of i, where z is real or integer 
and j is integer: y=sign(z)*| i\ 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE(TYPE) 


ISIGN (P) 


None 


JSB ISIGN 
DEF j 
DEF z 

-> ( y in A) 



METHOD: Same as SIGN 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



ISIGN 


Real (or 


int) & 


nteger 


Integer: 


A 




Function 


ISIGN 


U,z) 


Function 


ISIGN 


(x,z) 


Not Call 


ible 




None 
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PURPOSE: 



MANT 

EXP(x) 
Extract mantissa of a real x where x = MANT {x) * 2 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


.MANT (P) 


None 


DLD 

JSB.MANT 

■* Real Mantissa in A & B 



METHOD: 



Accuracy is 23 bits. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.MANT 


Real 


Real 


Not Callable 


Not Callable 


Not Callable 


None 
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MOD 



PURPOSE: Calculate the integer remainder of J/ J for integer J & J; 

k = i modulo J 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 






DOS/RTE(TYPE) 


MOD (P) 


.ENTR 


.ENTP 




JSB MOD 






DEF *+3 






DEF I 






DEF J 






- k in A & B 





METHOD: 



K = I - [I/J]*J 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


MOD 


Integer 


Integer 


Callable 


as function 








Intrinsic 


function: 


MOD 


I,J) 




Callable 


as integer 


procec 


lure 




If J = 0, 


then k = i 
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PURPOSE: 



MPY 

(non-EAU libraries only) 
Multiply integer i and j: k = i*j 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE(TYPE) 


.MPY (U) 


None 


LDA j 
JSB .MPY 

DEF i 

-*- k in A&B (Note 1) 


or 


LDA j 
MPY I 
■* k in A&B (Note 1 ) 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.MPY 



Integer 



Two-word integer (Note 1 ) 



Not callable 



Not callable 



Not callable 



None 



NOTES: 



1. B contains most significant bits of product; 
A contains least significant bits. 
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MXMND 

PURPOSE: Calculate the maximum or minimum of a series of double real values: 
y = max \a,b,c, ) y = min [a,b,c, ) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


DMAXl (R) 
DMINl 


.XSUB 
.XFER 


JSB DMAXl (or DMINl) 
DEF *+w+2 




DEF Y (result) 
DEF A (1) 
DEF b (2) 




DEF x (n) 

-> 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



DMAXl 


DMINl 




Double Real 


Double Real 




Double Real 


Double Real 




Callable as Subroutine 


Callable as Subroutine 




Note 1 


Note 1 




Note 2 


Note 2 




If n < 2, then y = 


If n < 2, then y = 





NOTES: 1. Intrinsic functions: DMAXl {a,b,c, ) 

DMINl (a,b,c, ■■■■) 

2. Callable, but only with a fixed number and parameters. 



COMMENTS: Requires at least two parameters. 
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MXMNI 



PURPOSE: 



Calculate the maximum or minimum of a series of integer values: 



y = MAX (a,b,c. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.) 



BCS 






DOS/RTE (TYP 


E) 




AMAX0, MAX0, 


AMIN0, 


MIN0 (R) 




FLOAT 




JSB Entry Point 
DEF *+w+l 
DEF a (1) 
DEF b (2) 

DEF x (n) 

■* Result in A or A 


& B 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTES: 1. Functions: AMAX0 (a,b,c ....), MAX0 {a,b,c ) AMN0 (a,b,c ), MIN0 (a,b,c. 

2. Callable as integer or real procedure, but only with a fixed number of parameters. 

3. If the number of parameters is less than 2, y = 0. 



AMAX0 


MAX0 


AMIN0 


MIN0 


Integer 


Integer 


Integer 


Integer 


Real 


Integer 


Real 


Integer 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 2 


Note 2 


Note 2 


Note 2 


Note 3 


Note 3 


Note 3 


Note 3 



COMMENTS: Requires at least two parameters. 
AMAX0 provides a real maximum. 
MAX0 provides an integer maximum. 
AMIN0 provides a real minimum. 
MIN0 provides an integer minimum. 
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MXMNR 



PURPOSE: Calculate the maximum or minimum of a series of real values: 
y = Max {a,b,c ) y = Min {a,b,c ) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 




AMAX1, MAX1, AMIN1, 


MINI (R) 


IFIX 


JSB Entry Point 

DEF *+ w + 1 
DEF a (1) 
DEF b (2) 

DEF x (n) 

■* y in A or A & B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



AMAX1 


MAX1 


AMIN1 


MINI 


Real 


Real 


Real 


Real 


Real 


Integer 


Real 


Integer 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 2 


Note 2 


Note 2 


Note 2 


Note 3 


Note 3 


Note 3 


Note 3 



NOTES: 



1. Functions: 



AMAX1 {a,b,c, 
AMIN1 (A,B,c, 



MAX1 
MINI 



[A,B,C, 

[a,b,c, 



.), 



2. Callable as integer or real procedure, but only with a fixed number or parameters. 

3. If the number of parameters is less than 2, y = (5. 



COMMENTS: Requires at least two parameters. 

AMAX1 provides a real maximum. 
MAX! provides an integer maximum. 
AMIN1 provides a real minimum. 
MINI provides an integer minimum. 
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PWR2 



PURPOSE: Calculate x.Z for real x and integer n: y = x.2' 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 


.PWR2 (P) 


.FLUN 


DLD x 
JSB .PWR2 
DEC n 

■* y in A & B 



METHOD: 



Exponent of x is increased by n. 
Accuracy is 23 bits. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.PWR2 


Real & Integer 


Real 


Not Callable 


Not Callable 


Not Callable 


None 
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REAL 



PURPOSE: Extract the real part of a complex x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 










DOS/RTE (1 


'YPE) 


REAL (P) 


.ENTR 


.ENTP 




JSB REAL 












DEF *+2 












DEF x 












■* result 


in 


A 


& B 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



REAL 



Compl ex 



Real 



Callable as Function 



Intr. Function: REAL {x) 



Callable as real procedure 



None 
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SICOS 



PURPOSE: Calculate the sine or cosine of a real x (radians) 



y = sine (x) or 
y = cosine (x) 



BCS 



DOS/ RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



SIN (R) 
COS 




. .FCM, 


.IENT, .PWR2, FLOAT, .CHEB 


DSD x 

JSB SIN (or COS) 

^ y in A&B 


DLD x 

JSB SIN (or COS) 

JSB ERR0 

■* y in A&B 



x = x *2/n 

x = x -4 *ENTIER ((x+l)4) (See .IENT) 

If x > 1 then x = 2 - x 

y = x *CHEBY (2*x*x-l) 



r = COS (x) = - SIN (x - tt/2) 





ENTRY 


POINTS: 


SIN 




COS 


Real Radians: A and B 




Real Radians: A and B 


Real : A and B 




Real : A and B 


Function: SIN (x) 




Function: COS (x) 


Function: SIN (x) 




Function: COS (x) 


Intr. Proc: SIN (x) 




Intr. Proc: COS (x) 


See note 2. 




Same 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors: 

NOTES: 1- If tne error condition occurs, the overflow bit is set. 
2. 



i 



x + 



2'TT 



-|>2 1 ^ 

2 



(05 OR) 
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SIGN 

PURPOSE: Calculate the sign of z times the absolute value of x, where z is real or integer 
and x is real; if z = 0, then the result equals 0. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE(TYPE) 



SIGN (p; 



..FCM 



JSB SIGN 

DEF x 

DEF z 

■+ (result in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 




SIGN 


Real or Integer and Real 


Real 


Function: SIGN (x, z) 






Function: SIGN (x. z) 


Not Callable 


None 
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SNGL 

PURPOSE: Convert a double real x to a real y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE( 


TYPE) 


SNGL (P) 




.XFER, .FLUN, 


.PACK 




JSB SNGL 
DEF *+2 
DEF x 

■* y in A & B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 











ENTRY 


POINTS: 


SNGL 


Double Real 


Real 


Callable 


Intr. Functi 


on: 


SNGL 


(*) 






Callable as 


Real 


Proa 


>dure 






Note 1 



NOTES: 



1. 



-23 127 
If x > (1-2 )*2 (the maximum real number), 



then y 



(1-2~ 23 U2 127 , 



and the overflow bit is set. 
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SQRT 



PURPOSE: Calculate the square root of a real X: y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 






DOS/RTE (TYPE) 


SQRT (R) 


.FLUN, .PWR2, .ERRR 


.FLUN, .PWR2 


DLD x 

JSB SQRT 

•* (y in A and B) 


DLD 

JSB SQRT 

JSB ERR0 (error) 

-* (y in A and B) 



METHOD: ? , , ? c <f d ,_ h _ 

Choose f such that x=2"(f), ' - ' Then /x = 2 £ * Vf. 



/f is approximated by p 7 = c-,f+c ?> where for .25 <f <.5, c, = .875, c ? =. 27863 and for 

.5 <f <1, c^. 578125, c 2 =. 421875 

This approximation is improved by two Newton iterations: p ={p +f/p )/2 



P 3 = (p/f/P 2 )/2 

p is the final result 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



SORT 


Real: 


A & B 


Real: 


A & B 


Function: SORT (x) 


Function: SORT (x) 


Intr. 


Proc: SORT (x) 


x < 


-y (03 UN) 



NOTES: 



1. If the error condition occurs, the overflow bit is set. 
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TAN 



PURPOSE: Calculate the tangent of a real x (radians): y = tangent (x) 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



TAN (R) 


.PWR2, 
.ERRR 


..FCM, .IENT, .CHEB, FLOAT, 


.PWR2, 


..FCM, .IENT, .CHEB, 


FLOAT 


DLD x 
JSB TAN 

■+ (y in A & B) 


DLD x 

JSB TAN 

JSB ERR0 (error) 

+ (y in A & B) 



a- = 4*x/n 

x = x-4* ENTIER(U+l)/4) (See , 

If x>l then w = 2-x else w = x 

w = w *CHEBY(2*w*w-l) 

If x>l then y = 1/w else y = w 



IENT) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 




TAN 


Real : A and B 






Real : A and B 


Function: TAN (x) 


Function: TAN {x) 


Intr. Proc: TAN (x) 


x>2 14 -*(09 OR), tan (x) 


o ^o .CI 

>2 ■* overflow 





NOTES: 



1. If the error condition occurs, the overflow bit is set. 
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TANH 



PURPOSE: Calculate the hyperbolic tangent of a real x; y=TANH {x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


TANH (R) 


.PWR2, EXP, . .FCM, ABS, .FLUN 


DLD x 

JSB TANH 

■+ {y in A and B) 



METHOD: 



1. x > 

a. x > 16 

b. .125 < x < 16 



TANH (x) = 1 

TANH (x) = (EXP(2*x)-l)/(EXP(2*x) + 1) 

\-l 



c 2 +c 3 (c 4 +f" 



c. .00005 < x < .125 TANH(x) = l^+f" 
where: 

f = 4*x*log 2 e d _ x < _ 00005 T anh(x) = x 

C l = 5.7707801636 2. x < TANH (x) = -TANH ( -x) 

c 2 = .01732867951 
c 3 =14. 1384114018 
c 4 = 349. 6699888 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



TANH ; 


Real: 


A 


and B 


Real: 


A 


and B 


Funct 


ion 


TANH (x) 


Funct 


ion 


TANH (*) 


Intr. 


Proc: TANH {x) 


None 



1-65 



XADSB 



PURPOSE: Double real addition and subtraction: z = x + Y 



z = x - y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 




.XADD (P) 
XADD .XSUB XSUB 


.XFER, .FLUN, .XPAK, .XCOM, GETAD, 
ADRES 


.PCAD, .XFER, .FLUN, .XPAK, 


.XCOM 


JSB(.XADD or .XSUB) JSB(XADD or XSUB) 
DEF z (result) or DEF*+4 
DEF x DEF z (result) 
DEF y DEF x 

DEF y 

-> 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY 


POINTS: 




.XADD 


XADD 




.XSUB 


XSUB 


Double Real 


Double Real 




Double Real 


Double Real 


Double Real 


Double Real 




Double Real 


Double Real 


Not Callable 


Callable 




Not Callable 


Callable 


Not Callable 


Callable 




Not Callable 


Callable 


Not Callable 


Callable 




Not Callable 


Callable 


Note 1 


Note 1 




Note 1 


Note 1 



NOTES: 1. If z is outside the range: [-2 

z = 2 127 (l-2- 39 ). 



128 



2 127 (l-2~ 39 )], then the overflow bit is set and 



If the result is within the range: [-2 '"(1+2 c ). 
is set and z = 0. 



1 ?Q 

2 ], then the overflow bit 



1-66 



XDIV 



PURPOSE: Divide a double real x by double real v. z = x / y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






DOS/RTE (TYPE) 




.XDIV (P) 
XDIV 


.XFER, 

ADRES 


.XCOM, .FLUN, .XPACK, 


GETAD, 


.PCAD, 


.XFER, .XCOM, .FLUN, 


.XPAK 




JSB .XDIV 
DEF z (result) 
DEF x 
DEF y 

-> 


or 


JSB XDIV 
DEF * + 4 
DEF z (result) 
DEF x 
DEF y 





ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



XDTV 


.XDTV 


Double Real 


Double Real 


Double Real 


Double Real 


Callable 


Not Call able 


Callable 


Not Callahle 


Callable 


Not. Callable 


See XADSB 


See XADSR 



1-67 



XMPY 



PURPOSE: Multiply double real x by double real Y: z = x*y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 




DOS/RTE (TYPE) 




.XMPY (P) 
XMPY 


.XFER, 
ADRES 


.FLUN, .XPAK, .XCOM, GETAD, 


.PCAD, 


.XFER, .FLUN, .XPAK, 


.XCOM 




JSB .XMPY or 
DEF z (result) 
DEF x 
DEF y 


JSB XMPY 
DEF * + 4 
DEF z (result) 
DEF x 
DEF Y 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


XMPY 


.XMPY 


Double Real 


Double Real 


Double Real 


Double Real 


Callable 


Not Callable 


Callable 


Not. Call able 


Callable 


Nnt Call a hie 


See XADSB 


See XAnSR 



1-68 



XPOLY 



PURPOSE: Evaluate double real polynomial: y = c 7 * ' + c x + . . .+c -^x + c^ 



x""l 



.,"-2 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.XPLY (R) 
XPOLY 



.ENTR, .XFER, .XADD, .XMPY 



JSB .XPLY or XPOLY 

DEF * + 5 

DEF Y 

DEF n (degree + 1 ) 

DEF x 

DEF c (first element of coefficient array) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.XPLY 




XPOLY 


Double Real ,1 


nteger 


Double Real , Integer 


Double Real 




Double Real 


Not Callable 




Callable 


Not Callable 




Callable 


Not Callable 




Callable 


If ni 0, y = 





If 71< 0, Y = 



1-69 



.CDBL 



PURPOSE: 



Converts a complex x to real y 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CDBL 


(U) 




REAL 






DBLE 






JSB . 


2DBL 




DEF y 


(DP result) 


DEF x 


(compl 


3X) 


-*■ 







ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.CDBL 


Complex 


Double real 


Not callable 


Not r.allahlp 


Not callable 


Nnnp . — ____ 



1-70 



.CFER 



PURPOSE: 



Transfer a complex x to complex y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE(l 


YPE) 


.CFER (U) 


GETAD 
ADRES 


JSB .CFER 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.CFER 


Complex 


Complex 


Not callable 


Not callable 


Not callable 




None 



1-71 



.CINT 



PURPOSE: Convert a complex x to an integer. 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.f.TNT 


Complex 


Integer in A 


Not callable 


Not callable 


Not callable 


None 



1-72 



.CTOI 



PURPOSE: 



Raise a complex x to an integer power j.- z = x (z is complex) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 



DOS/RTE(TYPE) 



■CTOI (R) 



.ERRR, .CMPY, .CDIV, 
GETAD, ADRES 



JSB .CTOI 

DEF z (result) 

DEF x 

DEF J 

-* Normal Return 



See .RTOI 



.CMPY, .CDIV, 
.PCAD 



JSB .CTOI 

DEF z (result) 

DEF x 

DEF j 

-v Error Return 

•+ Normal Return 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.CTOI 



Complex & integer 



Complex 



Not callable 



Not callable 



Not callable 



x = 0, I<0 ■» (14 



1-73 



DCPX 



PURPOSE: Converts a double real x to a complex y. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE ( 


TYPE) 




.DCPX (U) 


SNGL 
CMPLX 




JSB .DCPX 
DEF y 
DEF x 










-y 









ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.DCPX 


Double real 


Complex 


Not callable 


Not callable 


Not callable 


None 



1-74 



.DINT 



PURPOSE: Converts a double real x to an integer. 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 

SEQUENCES: 



■DINT (U) 



SNGL 
IFIX 



DOS/RTE(TYPE) 



JSB .DINT 

DEF x 

-> result in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



■ DINT 



Double real 



Integer in A 
Not callable 



Not callable 
Not callable 



None 



1-75 



DTOD 



PURPOSE: 



Raise a double real x to a double real power y.- 



2 = x 



(z is double real ) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 




DOS/RTE( 


TYPE) 


.DTOD (R) 


DEXP, DLOG 
.XMPY, .XFER 


JSB .DTOD 

DEF z (result) 

DEF x 

DEF y 

■y normal return 


JSB .DTOD 

DEF z (result) 

DEF x 

DEF y 

-* error return 

■+ normal return 



If x = and y>0, z = 0. 

If x f and y = 0, z = 1. 

If x>0 and yfO, z = EXP(y*log(x)) 

Accuracy depends on the accuracy of DLOG and DEXP. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.DTOD 


Double 


real 


Double 


real 


Not ca 


liable 


Not cal Table 


Not ca 


liable 


Note 1 



NOTES: 1. x = 0, y<0 -> (13 UN) 

x<0, YfQ ■+ (13 UN) 

-39 No 127 



x>(l-2 )2' 



(10 OF) 



1-76 



DTOI 



PURPOSE: Calculate a double real x raised to an integer power i: 
y = x 1 (y is double real) 

BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



.ERRR, .XMPY, 
.XDIV, .XFER 



JSB .DTOI 

DEF y (result) 

DEF x 

DEF J 

•+ Normal return 



.DTOI (R) 



.XMPY, .XDIV, 
.XFER 



JSB .DTOI 

DEF y (result) 

DEF x 

DEF x 

•* Error return 

■+ Normal return 



See .RTOI 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



■ DTOI 



Double real & integer 



Double real 



Not callable 



Not callable 



Not callable 



If x = 0, i ±0 -> (12 UN) 



1-77 



.DTOR 



PURPOSE: Raise a double real x to a real power r.- 

z = x y (z is double real ) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/ RTE (TYPE) 


.DTOR (U) 


.DTOD 
DBLE 


JSB .DTOR 
DEF z (result) 
DEF x 
DEF y 

■* normal routine 


JSB .DTOR 

DEF z (result) 

DEF x 

DEF y 

■* error return 

->- normal return 



METHOD: 



Convert y to double precision and call .DTOD. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DTOR 


Real & double real 


Double real 


Not callable 


Not callable 


Not callable 


See .DTOD 



1-78 



.EAU. 

(EAU libraries only) 

PURPOSE: Replace calls to .MPY, .DIV, .DLD, and .DST with hardware 

EAU instructions. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.MPY (U) 
.DIV .DLD 



.DST 



None 



See MPY, DIV, DLDST 



1-79 



.FLUN 



PURPOSE: 



Unpack" a real x; place exponent in A, lower part of mantissa in B. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE(TYPE) 


.FLUN (P) 


None 


.ZRLB 


DLD x 

JSB .FLUN 

■* exponent in A 

Lower mantissa in B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.FLUN 


Real 


A & B 


Not callable 


Not callable 


Not callable 


None 



1-80 



.ICPX 



PURPOSE: Converts an integer i to a complex y. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



.ICPX (U) 



FLOAT 
CMPLX 



LDA I 

JSB .ICPX 
DEF y 



DOS/RTE (TYPE) 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.ICPX 



Integer in A 



Complex 



Not callable 



Not callable 



Not callable 



None 



1-81 



.IDBL 



PURPOSE: Converts an integer i to double real y. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.IDBL 


(U) 


FLOAT 




DBLD 




.LDA J 


JSB . 


[DBL 


DEF y 









ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.IDBL 


Integer in A 


Double 


Not callable 


Not callable 


Not callable 


None 



1-82 



.IENT 



PURPOSE: 



Calculate ENTIER (x) for real x: i = ENTIER (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


.IENT (P) 


IFIX, .FLUN, 
FLOAT 


DLD x 

JSB .IENT 

JSB error routine 

-*- i in A 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


.IENT 


Real 


Integer 


Not callable 


Not callable 


Not callable 


EXPO (x) > 14, 


user 


must 


supply error 


routine 



1-83 



.ITOI 



PURPOSE: Calculate i J for integer i and j: k 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.ERRR 



JSB .ITOI 
DEF i 
DEF J 

■+ k in A 



BCS 



DOS/RTE (TYPE) 



.ITOI (P) 



None 



JSB .ITOI 

DEF i 

DEF J 

JSB ERR0 (error return) 

-> k in A 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.ITOI 



Integer 



Integer 



ENTRY POINTS: 



Not callable 



Not callable 



Not callable 



See Note 1 . 



NOTES: 



1, 



Condition 



0, J i 



x J > 2 23 



Error Code 
08 UN 
08 OF 



On error return, overflow bit is set. 



1-84 



PACK 



PURPOSE: Convert signed mantissa of real x into normalized real format. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE(TYPE) 


.PACK (P) 


None 


.ZRLB 


DLD x 

JSB .PACK 

BSS 1 (exponent) 

-> result in A & B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.PACK 


Mantissa in A & B 


Real 


Not Callable 


Not Callable 


Not Callable 


None 



1-85 



RTOD 



PURPOSE: Raise a real x to a double real power y.- z=x (z is double reaV 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 






DOS/RTE (TYPE) 


.RTOD (U) 


.DTOD 
DBLE 


JSB .RTOD 

DEF z (result) 

DEF x 

DEF y 

-v Normal Return 


JSB .RTOD 

DEF z (result) 

DEF x 

DEF y 

-»• Error Return 

■+ Normal Return 



METHOD: 



Convert x to double real and call .DTOD. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.RTOn 


Real and Double Real 




Double Real 


Not Callable 


Not Callable 


Not Callable 


See .DTOD 



1-86 



.RTOI 

PURPOSE: Calculate x 1 for real x and integer J: y=x . 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 






DOS/ RTE (TYPE) 




.RTOI (R) 


.ERRR 


None 


JSB .RTOI 

DEF x 

DEF I 

* y in A & B 




JSB .RTOI 

DEF x 

DEF J 

JSB ERR0 

-* y in A & B 





METHOD: The only possibility of inaccuracy is that introduced by roundoff in the FMP or the 
FDV routine if J < 0. 

x 1 gives the same result as the expression: 

*x 



x*x^x**x, 

I times 



or 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.RTOI 


Real 


& I 


nteger 


Real 


Not 


Call 


able 


Not 


Call 


able 


Not 


Call 


able 


See 


Note 


1 



NOTES: 



1. 



Condition 



x = 
III. 



i < 
,128 



Error Code 



06 UN 
x i-i> 2"~" (floating point overflow) 

On error return, overflow bit is set. 



1-87 



RTOR 



PURPOSE: 



Calculate x Y for real x and y-. z = x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 






DOS/RTE (TYPE) 


.RTOR (R) 


ALOG, EXP, 
.ERRR 


ALOG, EXP 


JSB .RTOR 
DEF x 
DEF y 

■* z in A & B 


JSB .RTOR 
DEF x 
DEF y 
JSB ERR0 
* z in A & B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.RTOR 


Real 


Real 


Not 


Callable 


Not 


Callable 


Not 


Callable 


See 


Note 1 



NOTES: 



1. 



Condition 



Error Code 
|34 UN 



x = 0, y < 
< 0, f 
|x*AL0G(x) | > 124 07 OF 
On error return, the overflow bit is set. 



1-E 



.XCOM 



PURPOSE: complements a double real unpacked mantissa in place. Upon return, 
A-register = 1 if exponent should be adjusted; otherwise A = 0. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.XCOM (P) 



.XFER 



JSB .XCOM 
DEF x 

ADA (exponent) 
STA (exponent) 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



■ XCOM 



Double real 



Double real 



Not callable 



Not, callable 



Nnt. callable 



None 



1-89 



XFER 



PURPOSE: 



Double real transfer: y 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.XFER (P) 
.DFER 


None 


LDA (address of x) 
LDB (address of y) 
JSB .XFER 

-> 


JSB .DFER 
OR DEF y 
DEF x 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.XFER 


.DFER 


Double real 


Double real 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


None 


None 



1-90 



.XPAK 

PURPOSE: Double real mantissa is normalized, rounded, and packed with exponent; 
result is double real . 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


.XPAK (P) 


.XFER 


LDA exponent 

JSB .XPAK 

DEF x (3-word mantissa) 

■* result in x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



■ XPAK 



ENTRY POINTS: 



Double real . exponent 



Double real 



Not callable 



Not callable 



Not, callable 



See XADSB 



1-91 



.CCM 



PURPOSE: Complements a complex variable x in place. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE(TYPE) 


..CCM (U) 


GETAD 

ADRES ..FCM 




JSB ..CCM 
DEF x 

->- 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



..CCM 


Complex 


Compl ex 


Not callable 


Not callable 


Not callable 


None 



1-92 



.DCM 



PURPOSE: 



Double real compliment. 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DOS/RTE(TYPE) 



..DCM (P) 



.FLUN, .XCOM 
.XPAK, .XFER 



JSB ..DCM 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



MK. 



Double 



Double real 



Not callable 



Not callable 



Not callable 



None 



1-93 



DLC 



PURPOSE: 



Load and complement a real x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE ( 


TYPE) 


..DLC (P) 


None 


JSB ..DLC 

DEF x 

■* compliment in A & B. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



..DLC 


Real 


Real 


Not callable 


Not callable 


Not callable 


None 



1-94 



..FCM 



PURPOSE: 



Complement real x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


..FCM (P) 


..DLC 


DLD x 

JSB ..FCM 

■+ result in A & B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



..FCM 


Real 


Real 


Not callable 


Not callable 


Not callable 


None 



1-95 



SECTION II 



UTILITY SUBROUTINES 



AXIS 



PURPOSE: Plots one axis (x or y) of a graph with a specified axis label, 

a specified length, and specified values at each inch marker. 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



AXIS (U) 



NUMB, SYMB, PLOT, 

and numerous library subroutines 



JSB AXIS 

DEF *+9 

DEF floating-point origin: x coordinate 

DEF floating-point origin: Y coordinate 

DEF axis label 

DEF integer number of characters in label (positive to 
place label counterclockwise to axis--as in Y axis-- 
and negative to place label clockwise--as in X axis) 

DEF length of axis in floating-point inches 

DEF angle of axis in floating-point degrees 

DEF minimum value of axis (calculated by SCALE) 

DEF incremental value (calculated by SCALE) 

■> normal return 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



AXIS 


Mixed 


N/A 


Callable 


as 


subroutine 


Callable 


as 


subroutine 


Callable 


as 


CODE procedure 


None 



NOTES: 



1. SCALE must be called before AXIS. 

2. AXIS calls SYMB to plot the labels 0.14 inches high. 

3. Sample calls to AXIS: 

Plot the X axis, starting at (0,0) with the label "POWER" on 
the clockwise side, 6.5 inches long, at degrees. 

CALL AXIS (0.0,0.0,IPWR,-5,6.5,O.O,X(51),X(52)) 
Plot a similar Y axis with the label "PSI" on the counterclockwise 
side, ten inches long at 90 degrees. 

CALL AXIS (0.0,0.0,IPSI,3,10.0,90.0,Y(51),Y(52)) 



2-1 



BINRY 

PURPOSE: Reads or writes data at a specified location (logical unit number, 

track, sector, and offset) of a disc. 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



N/A 


BREAD, BWRIT (U) 




EXEC, .OPSY 




JSB BREAD (of BWRIT) (Note 1) 

DEF *+7 

DEF buffer 

DEF buffer length (words) 

DEF logical unit 

DEF track 

DEF sector 

DEF offset (Note 2) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 




BREAD 


BWRIT 




Mixed 


Mixed 




Mixed 


Mixed 




Callable 


Callable 




Callable 


Callable 




Callable 


Callable 




None 


None 





NOTES: 



1. BREAD is the read entry point and BWRIT is the write entry point. 

2. Offset: If the offset equals 0, the transfer begins on the sector 

boundary; if the offset equals n, the transfer skips n words 
into the sector before starting. 
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CLRIO 



PURPOSE: Performs a system clear request which makes all I/O devices available 

for the initiation of a new operation. (In RTE/DOS, CLRIO is a dummy 
compatibility routine.) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 




DOS/RTE (1 


YPE) 


CLRIO (U) 


.IOC. 




| 


None 




JSB CLRIO 
DEF *+l 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



CLRIC 



None 



None 



Callable 



Callable 



Callable 



None 



2-3 



CODE 



PURPOSE: Provides internal conversion according to a FORMAT from one core 

area to another core area. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



CODE (P) 
ACODE 


None 


JSB CODE 
DEF *+l 
Read or write 
(see Note 1 ) 


request 



METHOD: 



Utilizes the internal conversion capability of the Formatter. 



ENTRY POINTS: 



CODE 




ACODE 


None 




None 


None 




None 


Callable 




Callable 


Callable 




Callable 


Not callable 


(Note 2) 


Callable (Note 2) 


None 




None 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: 1. The call to CODE must immediately precede a READ or WRITE request where the 
identifier of an ASCII record buffer replaces the logical unit number. Any 
labels must be attached to the CODE call, as it and the READ/WRITE call are 
treated as one statement. 

In FORTRAN the calling sequences are: 

CALL CODE CALL CODE 

READ {v,n)L WRITE {v,n)z 

where v is the unsubscripted identifier of an ASCII record buffer; 
n is the number of a FORMAT Statement; and 
l is an Input/Output List of variables. 

On read, the contents of the ASCII record v are converted according to the 
FORMAT n and are stored in the variables listed in l. 

On write, the contents of the variables listed in l are converted to ASCII 
according to FORMAT n and the ASCII characters are stored in v. 

2. ALGOL programmers must use the entry point ACODE instead of CODE. 
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DBKPT 

PURPOSE: Processes breakpoints for DOS/RTE DEBUG. Never called by user programs. 

See DEBUG 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



N/A 


$DBP2, $MEMR (U) 




$DBP1, DEBUG 
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DEBUG 

PURPOSE: Aids the user in debugging his relocatable assembly language programs. 



METHOD: 



The operator links DEBUG to a program at load-time. See the 
manual for your operating system. 



COMMENTS: 

The BCS DEBUG executes programs interpretively and allows the operator to 
set values in memory and registers, dump memory, set relocation bases, 
establish a breakpoint at an instruction or operand, and set up a trace. 

The RTE/DOS DEBUG does not interpret programs; it places jump subroutine 
instructions in each breakpoint location and allows the program to execute 
normally until it reaches a breakpoint. The operator can set a relocation 
base, set instruction breakpoints, dump memory, and set values in memory 
or registers. 
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ENDIO 



PURPOSE: Delays further program execution until all current input/output 

operations are completed. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 

SEQUENCES: 



METHOD: 



BCS 



DOS/RTE (TYPE) 



ENDIO 


N/A 


.IOC. 




JSB ENDIO 
DEF *+l 

-* returns when all I/O is 
completed. 





Executes a system status request. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENDIO 


None 


None 


Callable 


Callable 


Callable 


None 
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ERR0 



PURPOSE: Prints a 4 character error code on the list device (the BCS version is a 

dummy routine for compatabil ity). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 


ERR0 (U) 


NONE 


EXEC, .OPSY 


LDA nn\ . , 
LDB xx) See bel0W 
JSB ERR0 



METHOD: nn is the routine identifier 

xx is the error type 
Prints this on the list device: name nn xx 



pairs of ASCII characters. 



where name is the name of the program. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



FRR(J 


ASCII Characters 


Printed 


Not Callable 


Not Callable 


Not Callable 


None 
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EXEC 



PURPOSE: 



Provides program termination for RTE/DOS compatable programs when run in BCS. 



BCS 



DOS/RTE(TYPE) 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



EXEC 


N/A, part of system 


.STOP 




JSB EXEC 
DEF *+2 
DEF RCODE 

RCODE DEC 6 





METHOD: 



Calls .STOP. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



EXEC 


Integer 


None 


Use END 


statement 


in 


main 


program. 


Use END 


statement 


in 


main 


program 


Use END$ 


None 
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GETAD 

PURPOSE: Determines the true address of a parameter passed to a subroutine and 

places the address in ADRES. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 




DOS/RTE (TYPE) 


GETAD, (U) 
ADRES 




NONE 




JSB GETAD 
DEF SUB, I 
LDA ADRES 
see below 



JSB SUB 
DEF X[,I] 



SUB NOP 

JSB GETAD 

DEF SUB, I 

LDA ADRES 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY 


POINTS: 




GETAD 




ADRES 


Integer Address 




NA 


Address 




Integer 


Not Callable 




Not Callable 


Not Callable 




Not Callable 


Not Callable 




Not Callable 


None 




None 



NOTES: 1. May not be called by privileged or re-entrant routines; 
see .PCAD. 
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INDEX 



PURPOSE: 



Returns the address (.INDA) or value (.INDR) of an ALGOL array. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 


.INDA (U) 
.INDR 


.IOC. 


EXEC 


JSB .INDA (or .INDR) 
DEF array table (see below) 
DEF- number of indices 
DEF subscript 1 

DEF subscript n 
-►result in A or A & B 



METHOD: Array Table: 

TABLE ABS number of indices (+ = real, - 
ABS size of 1st dimension 
ABS -lower bound of 1st dimension 
DEF array address 



integer) 



ABS size of last dimension 

ABS - lower bound of last dimension 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.INDA 



Integer 



Address: 



Not Callable 



Not Callable 



Not Callable 



See Note 1 



ENTRY POINTS: 



.INDR 



Integer 



Val ue: A or A & B 



Not Callable 



Not Callable 



Not Callable 



See Note 1 



NOTES: 1. If array not properly defined: 

A = Address of Call 

Prints INDEX? on teleprinter. 

When RUN is pushed, routine returns with result = 0. 
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ISSW 



PURPOSE: 



Sets the sign bit (15) of A-Register equal to bit n of the switch register. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


ISSW (U) 


NONE 


LDA n 

JSB ISSW 

■+ result in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


ISSW 


Inteqer 


Inteaer 


Function: 


ISSW (n) 








Function: 


ISSW (n) 








Not call a 


ble directly; 


see 


ALGOL manual . 


None 
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LEADR 



PURPOSE: Produces consecutive feed frames (octal zeroes) on punched tape to serve as 

leader. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE(TYPE) 



LEADR 


N/A 


.IOC, .ENTR 




JSB LEADR 

DEF * + 3 

DEF u (see below) 

DEF n (see below 





METHOD: u is the octal unit-reference number of the punched tape unit; 

w is the decimal number of inches of leader to be punched. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 




LEADR 


Inteqer 


None 


Callable 


Callable 


Callable 


If u is not a paDer tape device ■* computer halts (A 


= 0), 
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LINE 

PURPOSE: Plots a line and/or symbols through the successive data points in 

arrays previously scaled by the SCALE routine. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


LINE (U) 


SYMB, PLOT, numerous library routines 



JSB LINE 
DEF *+7 

DEF x (real array scaled for the abscissa) 
DEF y (real array scaled for the ordinate) 
DEF n (integer number of points to be plotted) 
DEF k (repeat factor, same as in SCALE) 
DEF j (integer control value) 
DEF l (number of centered symbols to be plotted; 
see SYMB for table) 



ATTRIBUTES: 



where j = 0, for a line plot only; 

= 1, for a symbol at every point; no line; 

= -1, for a line and a symbol at every point; 

= -2, for a line and a symbol at every second point; 

= -n, for a line and a symbol at every Nth point. 



EN*TRY POINTS: 



LINE 


Mixed 


N/A 


Callable 


as 


subroutine 


Callable 


as 


subroutine 


Callable 


as 


CODE procedure 


None 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: l. Since the LINE routine requires the adjusted minimum and delta values 
produced by the SCALE routine, SCALE must be called before LINE for 
each graph. 

2. Sample calls to LINE: 

CALL LINE {x, y, 50, 10, 0) 
(plots a line of 50 xy values) 

CALL LINE {x, y, 50, 1, -5, 3) 
(plots a line of 50 points with a "+" symbol at every fifth point) 
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MAGTP 



PURPOSE: Performs utility functions on magnetic tape and other devices: 

checks status, performs rewind/standby, writes a gap, issues a 
clear request, and does blocked input/output. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



BCS 


DOS/RTE (TYPE) 


IE0F,IERR,IE0T,IS0T, LOCAL, IWRDS, 
RWSTB, GAP3, CLEAR, IUNIT,BFINP,BFOUT. 


IE0F,IERR,IE0T,IS0T, LOCAL, 
IWRDS(N/A in RTE), RWSTB 


.ENTR, .IOC. 


.ENTR, EXEC 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



IEOF.IERR.IEOT.ISOT, LOCAL, IWRDS, IUNIT RWSTB, GAP3, CLEAR, BFINP.BFOUT 



Integer 



Integer: A 



Callable as function 



Callable as function 



Callable as integer procedure 



Returns on illegal call 



Integer 



N/A 



Callable as subroutine 



Callable as subroutine 



Callable as subroutine 



Returns on illegal call 



CALLING 
SEQUENCES: 



The calling sequence and purpose of each entry point is: 

JSB IEOF Returns a negative value in A if an end-of-file 

DEF *+2 was encountered during last tape operation on 

DEF unit the logical unit specified. 



JSB IERR 
DEF*+2 
DEF unit 



JSB I EOT 
DEF *+2 
DEF unit 



Returns a negative value in A if a parity or 
timing error was not cleared after three read 
attempts during the last operation on the 
specified unit (cannot occur if EOF occurs). 

Returns a negative value in A if an end-of-tape 
was encountered during the last forward movement 
of the specified unit. 



JSB ISOT Returns a negative value in A if the start-of-tape 

DEF *+2 marker is under the tape head of the specified 

DEF unit unit. 



JSB LOCAL 
DEF *+2 
DEF unit 



Returns a negative value in A if the specified 
unit is in local mode. 



JSB IWRDS 
DEF *+2 
DEF unit 



JSB IUNIT 
DEF *+2 
DEF unit 



(Not available in RTE.) Returns the value of the 
transmission log of the last read/write operation 
on the specified unit. (In the formatter environ- 
ment, this value is always a positive number of 
characters . ) 

(Not available in DOS/RTE.) Returns the status 
word (EQT word #2) of the specified logical unit. 
If the unit is busy, the word is negative. If 
the specified unit is 0, the routine returns 
system status. 
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CALLING 
SEQUENCES: 



MAGTP 



JSB 


RWSTB 


DEF 


*+2 


DEF 


unit 


-> 




JSB 


GAP3 


DEF 


*+2 


DEF 


unit 


-¥ 




JSB CLEAR 


DEF *+2 


DEF 

->- 


unit 


JSB 


BFINP 


DEF *+4 


DEF 


unit 


DEF buffer 


address 


DEF buffer 


length 


-> 




JSB 


BFOUT 


DEF 


*+4 


DEF 


unit 


DEF 


buffer 


address 


DEF buffer 


length 



Rewinds the specified logical unit and sets it 
to LOCAL. 



(Not available in DOS/RTE.) 
specified logical unit. 



Writes a gap on the 



(Not available in DOS/RTE.) Issues a clear 
request to the specified unit. 



Performs buffered input from the specified unit 
to the specified buffer. (Not available in 
DOS/RTE.) Unit is positive for binary, negative 
for ASCII. Buffer length is positive for words, 
negative for characters. 



Performs buffered output from the specified 
buffer to the specified unit. (Not available 
in DOS/RTE.) Unit is positive for binary, 
negative for ASCII. Buffer length is positive 
for words, negative for characters. 



The previous two calls should be followed by IUNIT tests 
for completion of operation in systems which are not 
using buffered .IOC. 
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MEMRY 



PURPOSE: Performs memory allocation for buffered .IOC; user program requests 

buffers to be allocated and released from the memory available 
after program loading. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 







BCS 




DOS/RTE(TYPE) 




.ALC, 


.RTN., 


.CLR. 


N/A 


.MEM., 


.IOC. 







CALLING 




SEQUENCES: 


To allocate a buffet 




JSB .ALC 




DEC number of words 



Upon return, if the buffer request is filled: 

A=address of first word of buffer 

B=number of words allocated 

If the buffer is not allocated because sufficient 
memory is temporarily unavailable: 

A=0 

B=maximum buffer length that can be allocated 
without releasing some previous buffer space. 

If the buffer is not allocated because sufficient 
memory is not available even when all buffers are 
released: 

A=-l 

B=maximum buffer length that can be allocated 
if all other buffers are released. 



To determine the largest possible buffer that can be allocated if all 
other buffers are released: 



JSB .ALC. 
DEC 32767 



The results are returned in the registers: 
A=-l 
B=maximum buffer length 



To release a specified area of buffer: 
JSB .RTN. 

DEF address of first word of buffer to be released 
DEC number of words to be released 



To release all storage allocated: 

CLA 

STA .CLR. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.ALC. 


.RTN. 


.CLR. 




Integer 


Inteqers 


N/A 




Values: A&B 


N/A 


N/A 




Not callable 


Not callable 


Not callable 




Not callable 


Not callable 


Not callable 




Not callable 


Not callable 


Not callable 




None 


None 


None 
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NUMB 

PURPOSE: Plots a floating-point number, with or without the decimal point, at 

a specified height, location, and angle. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


NUMB (U) 


SYMB and numerous library subroutines 



JSB NUMB 

DEF *+7 

DEF floating-point x coordinate of 

lower left corner where number 

is to be plotted 
DEF floating-point y coordinate 
DEF height, in floating-point inches, 

of number 
DEF the floating-point number to be plotted 
DEF the angle, in floating-point degrees, 

at which the number is to be plotted 
DEF n 



where w = 0, for print the decimal point of 
an integer; 

= 1, for suppress decimal point of an 
integer. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



NUMB 


Mixed 


N/A 


Callable 


as 


subroutine 


Callable 


as 


subroutine 


Callable 


as 


CODE procedure 


None 



NOTES: l. Sample call to NUMB: 

Plot three numbers .1 inches high, with decimal point 
suppressed, at 8.79 inches above 0,0 and at 5.32, 6.3 
and 7.16 inches to the right of 0,0. 

CALL NUMB (5.32, 8.79, 0.10, FLOAT (i), 0.0, -1) 

CALL NUMB (6.30, 8.79, 0.10, FLOAT (j), 0.0, -1) 

CALL NUMB (7.16, 8.79, 0.10, FLOAT (k), 0.0, -1) 
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OVF 



PURPOSE: Returns value of overflow bit in bit 15 of the A-Register 

and clears the overflow bit. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


OVF (U) 


None 


JSB OVF 

■+ result in A 



METHOD: 



If overflow bit is set (on), the A-Register is set negative; 
if the overflow bit is off, the A-Register is set positive. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



OVF 


None 


Integer: A 


Not callable 


Not callable 


Not callable 


None 
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PAUSE 



PURPOSE- Prints the following message on the teleprinter: name: PAUSE xxxx or 

nan ,e: STOP xxxx where name is the calling program name and xxxx is the 
specified integer J. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE(TYPE) 



N/A 



.PAUS, .STOP (U) 



EXEC 



LDA J 
JSB .PAUS 

See Note 1 . 



(or .STOP) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.PAUS 


.STOP 


Integer 


Integer 


None 


None 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


None 


None 



NOTES: i. when .PAUS is used, the program may be restarted using 
GO (RTE) or :G0 (DOS). 
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PLOT 



PURPOSE- Moves the pen of a plotter to any location on the graph with the pen up 

or down, establishes new origin points, sets the plotter logical unit 
(RTE/DOS), determines current position, varies the plot factor, and 
allows external buffers to be established. 

BCS DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



PLOT, WHERE, FACT, PLOTB 


PLOT, PLTLU, WHERE, FACT, PLOTB (U) 


.ENTR,. IOC, IFIX, FLOAT 


.ENTR.EXEC, IFIX, FLOAT 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



PLOT 


WHERE 


FACT 


PLOTB 


PLTLU 


Mixed 


None 


Real 


Mixed 


Integer 


N/A 


Real 


N/A 


N/A 


N/A 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


None 


None 


None 


None 


None 
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PLOT 



CALLING SEQUENCES: 
PLOT Calling Sequences 

The PLOT routine is called by a FORTRAN CALL statement or an Assembly Language 
calling sequence. 

FORTRAN: CALL PLOT x, y, ic 

x and y = the coordinates to which the pen is to be moved. All X and Y 
coordinates must be expressed as floating-point inches in 
deflection from the origin. 

ic = an integer constant or variable name set equal to one of the following: 

-2 = Move with the pen down; consider the point where the 
pen stops (x,y) as the new origin. 

-3 = Move with the pen up; consider the point where the 
pen stops (x,y) as the new origin. 

+2 = Move with the pen down; origin unchanged. 

+3 = Move with the pen up; origin unchanged. 

ASSEMBLY LANGUAGE: 

JSB PLOT 

DEF *+4 

DEF x (Defines address of x coordinate) 

DEF y (Defines address of y coordinate) 

DEF ic (Defines address of pen command) 



PLOT Coding Requirements 

Before a call is made to PLOT in DOS/RTE, an initial call to the PLTLU entry point 
must be made to insure that the logical unit number of the referenced plotter is 
placed in the I/O request. 

A single FORTRAN statement moves the pen to the desired location. 

All X and Y coordinates must be expressed as floating-point inches in deflection 
from the origin. 
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PLOT 



PLOT Example 

To plot a rectangle 8.5" by 11" starting at the origin, four calls to the PLOT 
routine must be made (assuming that the pen starts at the origin). 

CALL PLTLU (ILU) 

Initial call to PLTLU for plotter's logical unit number 



CALL PLOT (11., 0. ,+2) 
Moves the pen from X,Y = (0,0) to X,Y = (11,0) 

CALL PLOT (ll.,8.5,+2) 
Moves the pen from X,Y = (11,0) to X,Y = (11,8.5) 

CALL PLOT (0.,8.5,+2) 
Moves the pen from X,Y = (11,8.5) to X,Y = (0,8.5) 

CALL PLOT (0.,0.,+2) 
Moves the pen from X,Y = (0,8.5) to the origin 

PLOT Associated Functions 

The PLOT routine can perform additional functions when calls are made to the 
following entry points: PLTLU, WHERE, FACT and PLOTB. 

PLTLU ENTRY POINT (RTE/DOS ONLY ) 

A call to the PLTLU entry point allows the user to designate the logical unit number 
for the plotter. The logical unit number must be designated before a call to the 
PLOT routine. Otherwise, the user program will be terminated when an I/O request 
containing a logical unit value of zero is made by the PLOT routine. The logical 
unit number may be varied by the user program to direct output to more than one 
plotter. (In BCS, the PLOT routine examines the equipment table to find the first 
plotter; all output is then made to that plotter.) 

PLTLU Calling Sequences 

The PLTLU function can be called by a FORTRAN CALL statement or an Assembly Language 
calling sequence. 

FORTRAN: CALL PLTLU (ilu) 

ilu = An integer value representing the logical unit number. Refer to the 
Real-Time Software and DOS reference manuals for discussion of logical 
unit values. 

ASSEMBLY LANGUAGE: 

JSB PLTLU 

DEF *+2 

DEF ilu (Defines address of logical unit value) 
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PLOT 



WHERE ENTRY POINT 

A call to the WHERE entry point allows the user to determine the current plotter 
pen position. 

WHERE Calling Sequences 

The WHERE function can be called by a FORTRAN CALL statement or an Assembly 
Language calling sequence. 

FORTRAN: CALL WHERE (x,y) 

x and y = The addresses in which the X and Y coordinates of the current 
pen position are stored (in floating-point format) by the 
WHERE function. 



ASSEMBLY LANGUAGE: 

JSB WHERE 

DEF *+3 

DEF x (Define the locations where the current) 

DEF y Jpen positions are to be stored. < 

-*- 

FACT ENTRY POINT 

A call to the FACT entry point allows the user to vary the plot scale factor. 

FACT Calling Sequences 

The FACT function can be called by a FORTRAN CALL statement or an Assembly 
Language calling sequence. 

FORTRAN: CALL FACT (w) 

n = The floating point number used to establish the new scaling factor. 
Note that w is multiplied by 100.00 for the 100 plotter increments/ 
inch when the new scaling factor is established. The plot factor is 
initialized at 1 . 

ASSEMBLY LANGUAGE: 

JSB FACT 

DEF *+2 

DEF FCT (Defines the address of the factor modifier) 
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PLOT 



PLQTB ENTRY POINT 

A call to the PLOTB entry point allows the user to specify a "plot work" buffer 
external to the PLOT routine. This entry point is initialized using an internal 
ten-word buffer. 

PLOTB Calling Sequences 

The PLOTB function can be called by a FORTRAN CALL statement or an Assembly 
Language calling sequence. 

FORTRAN: CALL PLOTB (a,l) 

a = The starting address of the external buffer. An address of zero 
specifies the ten-word internal buffer. 

l = A positive decimal integer specifying the buffer length in words. 

ASSEMBLY LANGUAGE: 

JSB PLOTB 

DEF *+3 

DEF a (Defines the buffer starting address) 

DEF l (Defines the buffer length) 
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PTAPE 



PURPOSE: Positions a magnetic tape unit by spacing forward or backward a 

number of files and/or records. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 







BCS 






DOS/RTE (1 


"YPE) 


PTAPE (U) 


.IOC, 


.ENTR 






EXEC, 


.ENTR 





JSB PTAPE 

DEF *+4 

DEF logical unit 

DEF file count 

DEF record count 



see below 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



File count: positive for forward, negative for backward. 
For example: 

means make no file movements. 

-1 means backspace to the beginning of the current file. 

1 means forward space to beginning of the next file. 

-2 means backspace to the beginning of the previous file. 

Record count: positive for forward, negative for backward. 

The file count is executed first, then the record count. 
EOF marks count as a record. 

For example: 

0,-1 means move back one record. 

-1,0 means backspace to the first record of the current file. 
See Note 1 . 

ENTRY POINTS: 



PTAPE 



Integers 



None 



Callable 



Callable 



Callable 



None 



NOTES: l. The diagram below shows how the position of the magnetic tape would change 
with several example file/record counts. 



(-1,-2) (• 
i 


■1,-1) 


(-1,0) 


(0,-D 


(+1,-1 ; 


F 


+1,0) 

/ 









1 


ZJ LZI.^I 









t- 






! 


h 




where 


= record 


current 


COMMENTS: 


position 



1. After using PTAPE, always check status with MAGTP. 
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RMPAR 



PURPOSE: Retrieves parameters passed by operator when a suspended program is 

resumed. 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



N/A 


RMPAR (U) 




None 




Suspend call 
JSB RMPAR 
DEF *+2 
DEF ARRAY 

ARRAY BSS 5 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



RMPAR 



Integer 



Integer 



Callable 



Callable 



Callable 



None 
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SCALE 

PURPOSE: Scales an array of floating-point numbers to fit a specified size graph; 

the values generated are used by the LINE and AXIS routines. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS DOS/RTE(TYPE) 




SCALE (U) 




Numerous library subroutines 


(Separate calls required for X and Y axes) 
JSB SCALE 
DEF *+5 

DEF array containing real values 
DEF length of axis in floating-point inches 
DEF integer number of points to be plotted 
DEF k (integer which specifies the points to 
■+ be scaled: K=l, every point; K=2, every 

other point; K=3, every third point; etc.) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



SCALE 


Mi xed 


N/A 


Callable 


as 


subroutine 


Callable 


as 


subroutine 


Callable 


as 


CODE procedure 


None 







NOTES: 



1. The adjusted minimum value is a number less than or equal to the minimum data value. 
The adjusted delta value is the result of subtracting the minimum data value from 
the maximum data value, divided by the length of the axis and adjusted to provide 
one-inch increments that will cover the data. The adjusted scale values are used 

by the LINE and AXIS routines. 

2. The adjusted values are stored following the array. The minimum value for y is 
stored in y(np*k+d, where np is the number of points to be plotted; the delta 
value is stored in y(np*k+2). Therefore, the array must be dimensioned (k+2) 
locations larger than (np*k), which is the number of locations necessary for data 
points. Normally, k=1, so an array ZIP of ten data points would be dimensioned 
as ZIP(12). 

3. Sample use of SCALE: Scale every point in a 50-point array, fitting X values on a 
6.5-inch X axis and Y values on a 10-inch Y axis: 

DIMENSION X(52),Y(52) 

CALL SCALE (X, 6. 5, 50,1) 
CALL SCALE (Y, 10. 0,50,1 ) 
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SREAD 

PURPOSE: Reads a record from a device specified by a logical unit number 

(used only by system programs). 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



N/A 


%READ, WFIL, XRDSC, (U) 




.OPSY, EXEC 
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SYMB 



PURPOSE: Plots a string of characters at a specified location on the plotter; 

number, height, and angle of characters can be varied. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 


SYMB (U) 


PLOT, SIN, COS, .ENTR 


PLOT, SIN, COS,. ENTR, ERR0 



JSB SYMB 

DEF *+7 

DEF x (defines address of floating-point X coordinate) 

DEF y (defines floating-point Y coordinate) 

DEF size (defines height in floating-point inches) 

DEF iasci (defines address of ASCII array or special symbol number) 

DEF theta (defines angle in degrees) 

DEF n (defines number or type of characters) 

If w>0, N = number of ASCII characters to be plotted from array iasci. 
w=0, plot only lower character from iasci. 
w<0, plot special symbol #n (w=-1 , move with pen up, w<-l, pen down) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



SYMB 


Mixed 


N/A 


Callable 


as 


subroutine 


Callable 


as 


subroutine 


Callable 


as 


CODE procedure 


None 



NOTES: 

1. 



Example: 

Plot a line of 39 symbols from IBUFF along the X axis, 
starting 1 inch to the right and 9 inches above (0,0), 
with characters 0.14 inches high. 

CALL SYMB(1.0,0.0,0.14,IBUFF,0.0,39) 

Plot a right-direction arrow (symbol #20) 4 inches above 
and to the right of (0,0). The desired height is 0.5 
inches. 

CALL SYMB(4. 0,4. 0,0. 5, NUMB, 0.0,-1 ) 
where NUMB contains a decimal 20. 



COMMENTS: 

1. See Table SYMB-1 for a list of characters that the SYMB routine can plot. 

Any program that calls SYMB in the RTE/D0S environment must call PL0TLU first 
to establish the plotter logical unit. (See PLOT.) 
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SYMB 



TABLE 2-1 . SYMBOL/CHARACTER TABLE 



SYMBOLS 



Centered Symbols 
0C35<>10 n 
1 ©6 t 11 * 
2A 7 X12X 

3 + 8 Z 13 ' 

4 X 9 Y 14& 



Uncentered Symbols 

15 _ 20 - 25 + 

16 ! 21 z 

17 i 11 >_ 

18 <_ 23A 

19 = 24 t 



ASCII CHARACTERS' 



126 @ 


39 


M 


52 Z 


65 ' 


78 4 


27 A 


40 


N 


53 [ 


66 ( 


79 5 


28 B 


41 





54 \ 


67 ) 


80 6 


29 C 


42 


P 


55 ] 


68 * 


81 7 


30 D 


43 


Q 


56 + 


69 


82 8 


31 E 


44 


R 


57 +■ 


70 , 


83 9 


32 F 


45 


S 


58 pen up 


71 - 


84 : 


33 G 


46 


T 


59 ! 


72 . 


85 ; 


34 H 


47 


U 


60 " 


73 / 


86 < 


35 I 


48 


V 


61 # 


74 


87 = 


36 J 


49 


w 


62 $ 


75 1 


88 > 


37 K 


50 


X 


63 % 


76 2 


89 ? 


38 L 


51 


Y 


64 & 


77 3 





Centered symbols are centered with respect to their reference point; 
they are useful in point plotting, with or without an accompanying 
line plot. 



Uncentered symbols are plotted such that the lower left corner of the 
symbol starts from the specified reference point; these symbols are 
useful mainly in captions and notes on the graph. ASCII characters 
are likewise plotted uncentered. 
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#cos 



PURPOSE: 



Entry to CCOS with no error return. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






DOS/RTE(T 


ypE) 


#C0S (U) 


.ENTR, CCOS 


ERR0, 


.ENTR, CCOS 




JSB #C0S 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



#C0S 


Compl ex 


Complex 


Not callable 


Not callable 


Not callable 


None 
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#EXP 



PURPOSE: 



Entry to CEXP with no error return. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 




DOS/RTE (TYPE) 


#EXP (U) 


.ENTR, CEXP 


ERR0, ENTR, CEXP 


JSB #EXP 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



#EXP 


Complex 


Complex 


Not callable 


Not callable 


Not callable 


None 
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#LOG 



PURPOSE: 



Entry to CLOG with no error return. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






DOS/RTE (TYPE) 


#L0G (U) 


.ENTR, CLOG 


ERR0, 


.ENTR, CLOG 


JSB #L0G 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



#L0G 


Complex 


Complex 


Not callable 


Not callable 


Not callable 


None 
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#SIN 



PURPOSE: 



Entry to CSIN with no error routine. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 







BCS 




DOS/RTE(TYPE) 


#SIN (U) 


.ENTR, 


CSIN 






ERR0, .ENTR, CSIN 


JSB #SIN 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



#SIN 


Compl ex 


Complex 


Not callable 


Not callable 


Not callable 


None 
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$EXP 



PURPOSE: Entry to DEXP with no alternate error routine. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






DOS/RTE(T 


YPE) 


$EXP (U) 


.ENTR, DEXP 


ERR0, 


.ENTR, DEXP 




JEB $EXP 
DEF *+3 
DEF y 
DEF x 

-> 



ATTRIBUTES: 

Parameters: 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



$EXP 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


None 
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$LOG 



PURPOSE: 



Entry to DLOG with no error return. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






DOS/RTE (TYPE) 


$L0G (U) 


.ENTR, DLOG 


ERR0, 


.ENTR, DLOG 


JSB %EXP 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



$L0G 


Double 


real 


Double 


real 


Not ca 


liable 


Not ca 


liable 


Not ca 


liable 


None 
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$LOGT 



PURPOSE: 



Entry to DLOGT with no error return. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE(TYPE) 


$L0GT (U) 


.ENTR, DLOGT 


DLOGT, .ENTR, ERR0 


JSB $L0GT 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



$L0GT 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


None 
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$SQRT 



PURPOSE: 



Entry to DSQRT with no error return. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 




DOS/RTE(TYPE) 


$SQRT (U) 


DSQRT, 


.ENTR 




DSQRT, ERR0, .ENTR 


JSB $SQRT 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



$SQRT 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%ABS 

Call -by-name entry to IABS(x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


%ABS (U) 


IABS 


JSB %ABS 
DEF *+2 
DEF i 
-y result in A 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%ABS 



Integer: A 



Integer: A 



ENTRY POINTS: 



Not callable 



Not callable 



Not callable 



None 
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%AN 



PURPOSE: 



Call -by-name entry to TAN(x). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


%AN (U) 


TAN 


JSB %AN 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%AN 


Real 


Real 


: A&B 


Not 


callable 


Not 


callable 


Not 


callable 


None 
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PURPOSE: 



%AND 

Call -by-name entry to IAND(j.j). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 



DOS/RTE(TYPE) 



%AND (U) 



IAND 



JSB %AND 
DEF *+3 
DEF I 
DEF j 
-* result in 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%AND 


Integer 


Integer 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%ANH 

Call -by-name entry to TANH(x). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


»NH (U) 


TANH 


JSB %ANH 

DEF *+2 

DEF x 

* result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters: 

Result: 

Basic FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 



%ANH 


Real 




Real : A&B 


Not callable 


Not callable 


Not callable 


None 
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%BS 



PURPOSE: Call -by-name entry to ABS(x). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


%BS (U) 


ABS 


JSB %BS 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



%BS 


Real 


Real : A&B 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%FIX 

Call -by-name entry to IFIX(x). 



BCS 



DOS/ RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%FIX (U) 


IFIX 


JSB %FIX 

DEF *+2 
DEF x 
■* result 


in 


A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



56FIX 


Real 


Integer: A 


Not callable 


Not callable 


Not callable 


None 



2-45 



PURPOSE: 



%IGN 

Call-by-name entry to SIGN (x, z) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


%IGN (U) 


SIGN 


JSB %IGN 

DEF *+3 

DEF x 

DEF z 

^result in A & B 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



™N 



ENTRY POINTS: 



Real or integer and real 



Real 



Not callable 



Not callable 



Not callable 



None 
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7olN 



PURPOSE: 



Call -by-name entry to SIN (x) . 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%w (u) 



SIN 



DOS/RTE(TYPE) 



jsb %m 

DEF *+2 

DEF x 

^result in A & B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



%m 


Real 


Real 


: A & B 


Not 


callable 


Not 


callable 


Not 


callable 


None 
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%INT 



PURPOSE: 



Call -by-name entry to AINT (x) . 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%INT (U) 


AINT 


JSB %INT 
DEF *+2 
DEF x 
^result in 


A 


& B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%INT 


Real 


Real 


Not ( 


;allable 


Not ( 


;allable 


Not ( 


;allable 


None 
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PURPOSE: 



%LOAT 

Call -by-name entry to FLOAT (i) 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DOS/RTE (TYPE) 



%L0AT (U) 



FLOAT 



JSB %L0AT 

DEF *+2 

DEF i 

->■ result in A&B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



7.L0AT 


Inteqer 


Real: A&B 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%LOG 

Call -by-name entry to ALOG (x) . 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


%L0G (U) 


ALOG 


JSB %L0G 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



t\ OG 


Real 


Real 


: A&B 


Not 


callable 


Not 


callable 


Not 


callable 


None 
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PURPOSE: 



% LOGT 

Call -by-name entry to ALOGT (x) . 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



SSLOGT (U) 



ALOGT 



JSB %L0GT 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



%L0GT 


Real 


Real 


Not callable 


Not callable 


Not callable 


None 
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%NT 



PURPOSE: Call-by-name entry to INT (x). 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%m (u) 



INT 



DOS/RTE (TYPE) 



JSB %NT 
DEF *+2 
DEF x (real) 
■> result in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%NT 



Real 



ENTRY POINTS: 



Integer 



Not callable 



Not callable 



Not callable 



None 
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%0R 

PURPOSE: Call-by-name entry to IOR (i, j). 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%0R (U) 




IOR 


JSB MR 

DEF *+3 

DEF i 

DEF J 

■* result in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



MR 


Integer 


Integer: 


A 


Not call 


able 


Not callable 


Not call 


able 


None 
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°/oOS 

PURPOSE: Call-by-name entry to COS (x). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 








DOS/RTE(TYPE) 


%os (u) 




COS 










JSB MS 
DEF *+2 
DEF x 
-> result 


in 


A&B 





ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



°/m 


Real 


Real 


A&B 


Not < 


:al lable 


Not < 


:allable 


Not callable 


None 
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5 foOT 



PURPOSE: Standard call-by-name subroutine for NOT function. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


XOT (U) 


None 


JSB XOT 
DEF *+2 
DEF J 
■* result in A 



METHOD: 



Executes complement of i. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



XOT 




Inteqer 


Inteqer: 


A 


Not call 


able 


Nnt callable 


Not call 


able 


None 
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PURPOSE: 



°/oQRT 

Call -by-name entry to SQRT (x). 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%QRT (U) 



SQRT 



DOS/RTE (TYPE) 



JSB %QRT 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%QRT 


Real 


Real: 


A&B 


Not callable 


Not callable 


Not callable 


None 
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°/o SIGN 



PURPOSE: Call-by-name entry to ISIGN (i, z). 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%SIGN (U) 



ISIGN 



DOS/RTE (TYPE) 



JSB %SIGN 

DEF *+3 

DEF i 

DEF z 

-»• result in A 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



2SSIGN 



ENTRY POINTS: 



Real (or integer) & integer 



Integer: A 



Not callable 



Not callable 



Not callable 



None 
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°/oSSW 



PURPOSE: Call-by-name entry to ISSW (w). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


2JSSW (U) 


ISSW 


JSB XSSW 

DEF *+2 

DEF n (integer) 

-* result in A 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



%SSW 



Integer 



Integer: A 



Not callable 



Not callable 



Not callable 



None 
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°/oTAN 



PURPOSE: Cal 1 -by-name entry to ATAN (x). 



BCS 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



XT AN (U) 



ATAN 



DOS/ RTE (TYPE) 



JSB %TAN 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



UAN 



Real 



Real: A&B 



Not callable 



Not callable 



Not callable 



None 



2-59 



%WRIS 

PURPOSE: Writes a disc source file (used only by system programs). 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



N/A 


%WRIS, %WRIN, %WE0F, (U) 




EXEC, .OPSY 



COMMENTS: 



1. This routine can only be called in the RTE System. 
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%WRIT 

PURPOSE: Writes a load-and-go file on disc (used only by system programs). 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



N/A 


WRIT, 3SWRIF, (U) 




.OPSY, EXEC 
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PURPOSE: 



%XP 

Call -by-name entry to EXP (x). 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(l 


YPE) 


%XP (U) 


EXP 


JSB %XP 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



%XP 


Real 




Real: A&B 


Not callable 


Not callable 


Not callable 


None 
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.ENTR 



PURPOSE: Transfers the true addresses of parameters from a calling sequence 

into a subroutine; adjusts return address to the true return point. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 






DOS/RTE(TYPE) 


.ENTR 


.ENTR, .ENTP (P) 


None 



For all BCS subroutines, all DOS/RTE Utility routines: 

PARAM BSS N (N = maximum number of parameters) 
SUB NOP (entry point to subroutine) 
JSB .ENTR 
DEF PARAM 



For all privileged routines: 

PARAM BSS N (N = maximum number of parameters) 
SUB NOP (entry point) 
JSB $LIBR 
NOP 

JSB .ENTP 
DEF PARAM 



For all re-entrant routines: 

TDB NOP (re-entrant processing table) 

DEC Q+N+3 (size of table) 

NOP 

VARBL BSS Q (subroutine variables) 

PARAM BSS N (parameter addresses) 
SUB NOP (entry point) 

JSB $LIBR 

DEF TDB 

JSB .ENTP 

DEF PARAM 

STA TDB+2 (sets return address) 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.ENTR 




.ENTP 


Address 




Address 


Address 




Address 


Not callable 




Not callable 


Not callable 




Not callable 


Not callable 




Not callable 


None 




None 



NOTES: i_ -|- ne true parameter address is determined by eliminating all 

indirect references. 

2. .ENTR assumes the subroutine call is of the form: 

JSB SUB 
DEF *+n+l 
DEF Pj 

DEF ?n 
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.ERRR 



PURPOSE: Writes a specified ASCII error code on the list device. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.ERRR 


N/A 


.IOC. 




JSB .ERRR 
ASC 1 , xx 

ASC 1, YY 

xx and yy are error codes. 





ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.ERRR 


ASCII characters 


None 


Not callable 


Not callable 


Not callable 


None 
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.GOTO 



PURPOSE: Transfers control to the location indicated by a FORTRAN computed 

GO TO statement: GO TO (k^ k 2 , 



V J 



BCS 



DOS/RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.GOTO (U) 


None 


JSB .GOTO 
DEF *+w+l 
DEF j 
DEF K ± 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.GOTO 


Addresses 


None 


Not callable 


Not callable 


Not callable 


None 
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.MAP. 



PURPOSE: Returns actual address of a particular element of a 

two-dimensional FORTRAN array. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE(TYPE) 


.MAP. (U) 


None 


JSB .MAP. 

DEF array 

DEF first subscript 

DEF second subscript 

OCT first dimension, as below 

■* result in A 



METHOD: 



Length of first dimension is actual for a real array, two's complement 
for an integer array. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.MAP. 


Integer 


Integer 


Not callable 


Not callable 


Not callable 


None 
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.OPSY 



PURPOSE: Determines, for disc-based systems, which operating system 

(RTE, DOS, DOS-M) is in control. 



BCS 



DOS/ RTE (TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



N/A 


.OPSY (P) 




None 




JSB .OPSY 
■* result in A 
A = 0: DOS 
A = 1 : DOS-M 
A = -2: RTE 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.OPSY 


None 


Integer 


Not callable 


Not callable 


Not callable 


None 
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.PAUS 

PURPOSE: Prints PAUSE on the teleprinter and halts the computer with a specified 

integer (i) in the A-Register. Returns to calling program when restarted. 



BCS 



DOS/RTE (TYPE) 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.PAUS . 


N/A, see PAUSE 


.IOC. 




LDA i 

JSB .PAUS 

■* return when RUN is pushed. 





ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.PAUS 


Integer 


None 


Not callable (Note 1) 


Not callable (note 1) 


Not callable (Note 1) 


None 



NOTES: 



1. In FORTRAN and ALGOL use PAUSE statement. 
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.PCAD 



PURPOSE: Return the true address of a parameter passed to a subroutine. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



N/A 


.PCAD (P) 




None 




JSB .PCAD 

DEF SUB, I 

-> result in A 

(See below for context) 



JSB SUB (call to subroutine; indirect bit is optional 

DEF X[,I] on parameter) 



SUB NOP 



(entry point to subroutine) 



JSB .PCAD 

DEF SUB, I 

-* address of X in A 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.PCAD 



Indirect Address 



Direct Address: 



Not callable 



Not callable 



Not callable 



None 



ENTRY POINTS: 



NOTES: 



1. .PCAD has the same purpose as GETAD. 

2. .PCAD is used by re-entrant or privileged by subroutines because they 
cannot use GETAD. 
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.PRAM 



PURPOSE: Processes parameter values and/or addresses passed to Assembly 

language subroutines by ALGOL programs. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 


DOS/RTE (TYPE) 


.PRAM (U) 


None 


JSB .PRAM 

<code words> 

<parameters> 

See the ALGOL manual (HP 02116-9072). 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.PRAM 


Integer 


Integer & Real 


Not callable 


Not callable 


Not callable 


None 



COMMENTS: Used in Assembly language subroutines to retrieve parameters from 
calling sequence inside the ALGOL calling program. 
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.STOP 

PURPOSE: Prints STOP on the teleprinter and halts the computer with a specified 
integer (i) in the B-Register. 



BCS 



DOS/RTE(TYPE) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



.STOP 


N/A, see PAUSE 


.IOC. 




LDA i 
JSB .STOP 
(no return) 





Returns to entry point HALT in the BCS loader. In stand-alone mode the 
HALT 77B is irrecoverable. In MTS mode control returns to .IPL.. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.STOP 


Integer 


None 


Not callable (Note 1) 


Not callable (Note 1) 


Not callable (Note 1) 


None 



NOTES: 



1. In FORTRAN and ALGOL use the STOP statement. 
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.SWCH 



PURPOSE: Switches execution control to the ith of a sequence of w labels 

(implements ALGOL switch statement). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE (TYPE) 


.SWCH (U) 


None 



LDA i 
JSB S 
■+ return if x is out of range 



S NOP 
JSB .SWCH 
ABS n (see below) 
DEF Label 1 
DEF Label 2 

lSeF Label w 



n is the number of labels. 

If r is out of range, .SWCH returns. 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.SWCH 


Addresses 


N/A 


Not callable 


Not callable 


Not callable 


If i is out of range, 


returns. 
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.TAPE 



PURPOSE: Performs magnetic tape rewind, backspace or end-of-file operations 

on a specified logical unit. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





BCS 




DOS/RTE (TYPE) 


.TAPE (U) 


.IOC. 


EXEC 


LDA constant 

JSB .TAPE 

constant = see below 



METHOD: 



Cons tan t : 



30xYY~ 

x = 4 for REWIND 

= 2 for BACKSPACE 

= 1 for END FILE 

yy = logical unit number 



ATTRIBUTES: 



Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.TAPE 


Integer 


None 


Not callable (Note 1) 


Not callable (Note 1) 


Not callable (Note 1) 


None 



NOTES: 



1. In FORTRAN and ALGOL use utility statements. 
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PURPOSE: 



.ZRLB 

Eliminates calls to $LIBR and $LIBX that are unnecessary in DOS and DOS-M. 
.ZRLB is called by FADSB, FMP, FDV, .FLUN, and .PACK. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



BCS 



DOS/RTE (TYPE) 





.ZRLB (P) 




$LIBR,$LIBX,.OPSY 




SUB NOP 

JSB $LIBR 
NOP 

JSB .ZRLB 
DEF EXIT 

EXIT JSB $LIBX 
DEF SUB 

JMP SUB, I 



In RTE, DOS, and DOS-M, this routine replaces the instruction "JSB .ZRLB" 
in the calling sequence with an "RSS". In DOS and DOS-M only, the 
instructions "JSB $LIBR" and "JSB $LIBX" are both replaced by "RSS". 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.ZRLB 


None 


None 


Not call 


able 


Not call 


able 


Not call 


able 


None 
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..MAP 



PURPOSE: Computes the address of a specified element of a 2 or 3 dimension array; 

returns the address in the A-Register. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BCS 




DOS/RTE ( 


TYPE) 


..MAP (U) 


None 



For 2 dimensions: 

LDA = D0 

LDB n (see below) 

JSB ..MAP 

DEF base address 

DEF 1st subscript 

DEF 2nd subscript 

DEF length of 1st dimension 

■+ address in A 



For 3 dimensions: 

LDA = D-l 

LDB w (see below) 

JSB ..MAP 

DEF base address 

DEF 1st subscript 

DEF 2nd subscript 

DEF 3rd subscript 

DEF length of 1st dimension 

DEF length of 2nd dimension 

■+ address in A 



= number of words per variable. 



ATTRIBUTES: 

Parameters 

Result 

Basic FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



..MAP 


Integer 


Integer 


Not callable 




Not callable 


Not callable 


None 
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SECTION III 



THE FORMATTER 



THE FORMATTER 



The Formatter is a subroutine that is called by relocatable programs to perform formatted data trans- 
fers, to interpret formats, to provide unformatted input and output of binary data, to provide free 
field input, and to provide buffer-to-buffer conversion. The Formatter is first given a string of 
ASCII characters that constitutes a format code. This "format" tells the Formatter the variables 
to transfer, the order, and the conversion (on input, ASCII characters are converted to binary values 
and on output, binary values are converted to ASCII). Then the calling program gives the Formatter 
a string of variables to be output or filled by input. 

In FORTRAN and ALGOL programming, the programmer first defines a FORMAT string through FORMAT 
statements. 



For example: 

Fortran: 10 FORMAT ( 15 ,A2 ,5F1 2 . 3) 

identifier actual format 
algol: FORMAT F23 (I5,A2,5F12.3) ; 
identifier actual format 

Then the programmer uses a READ or WRITE statement giving the logical unit number of the device to 
be used, the format identifier, and a list of variables. 

For example: 

Fortran: 20 WRITE (2,10) INT ,LETR .ARRAY 

logical format variable 

unit identifier list 

algol: WRITE (2.F23, INT, LETR, VARI); 

logical format variable 

unit identifier list 

The FORTRAN and ALGOL Compilers automatically generate the correct calls to the Formatter. In 
assembly language, the programmer is responsible for all calls to the Formatter, as will be discussed 
later. 

There are three different formatters used in relocatable Hewlett-Packard software systems: 

1 . 4K Formatter 

2. Basic FORTRAN Formatter 

3. FORTRAN IV Formatter 

The 4K Formatter is the simplest formatter, as it must operate in 4,096 words of memory. The Basic 
FORTRAN Formatter includes all the features of the 4K Formatter, plus several more. The FORTRAN IV 
Formatter is expanded even further to include double precision number conversion. 
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These three formatters are distributed as follows: 

1 . 4K Formatter: 

a. 24147 Non-EAU 4K FORTRAN Library 

b. 24148 EAU 4K FORTRAN Library 

2. Basic FORTRAN Formatter: 

a. 24146 non-EAU Relocatable Program Library 

b. 24145 EAU Relocatable Program Library 

c. RTE/DOS Basic FORTRAN Formatter (separate) 

3. FORTRAN IV Formatter: 

a. 24149 BCS FORTRAN IV Library 

b. 24152 RTE/DOS FORTRAN IV Library 
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FORMATTED INPUT/ OUTPUT 

Formatted input/output is distinguished from unformatted input/output by the presence of a format 
identifier in the READ or WRITE statement. The format identifier refers to a format that is a string 
of ASCII characters bounded by parentheses. The ASCII characters consist of a series of format 
specifications or codes. Each code specifies either a conversion or an editing operation. Conversion 
specifications tell the formatter how to handle each variable in the data list. 

To summarize: 

Format specifications may be nested (enclosed in parenthesis) to a depth of one level. In FORTRAN IV 

they may be nested to a depth of four levels. 
Conversion specifications tell the formatter how to convert variables into ASCII output and how to 

convert ASCII input into binary variable data. 
Editing specifications tell the formatter what literal strings to put on output, when to begin new 

records and when to insert blanks. 

FORMAT SPECIFICATIONS 

A format has the following form: (spec,. . . ,r{spec,. . .) ,spec,. . .) 

where: 

spec is a format specification and r is an optional repeat factor which must be an integer. 

Conversion Specifications 

rEw.d Real number with exponent 

rFw.d Real number without exponent 

rlw Decimal Integer 

r@w ) ^ 

rKw,rOw) Octal Integer > [Not available on 4K] 

rAw, rRw ASCII character) 

FORTRAN IV FORMATTER ONLY: 

srDw.d Double precision number with exponent 

srGw.d Real number with digits 

rLw Logical variable 

Editing Specifications 
nX Blank field 

nH character string 
r" character string" 

r/ begin new record 



where: 



r is an integer repetition factor, 

w and n are non-zero integer constants representing the width of a field in the external 

character string, 
d is an integer constant representing the digital fraction in the part of the string, and 
s is an optional scale factor. 
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THE E SPECIFICATION 



The E specification defines a field for a real number with exponent. 



Output 

On output, the E specification converts numbers (integers, real, or double precision) in memory into 
character form. The E field is defined in a format by the presence of the E specification (Ew.d). 
The field is w positions in the output record. The variable is printed out in floating-point form, 
right justified in the field as 




where 

x-i.-.x, are the most significant digits of the value, the e's are the digits of the exponent 
w is the width of the field, d is the number of significant digits, and the minus 
sign is present if the number is negative. 

The w must be large enough to contain the significant digits (d), the sign, the decimal point, E, and 
the exponent. In general, w should be greater than or equal to d + 6. 

If w is greater than the number of positions required for the output value, the quantity is right 
justified in the field with spaces to the left. If w is not large enough (e.g., less than d + 6), 
then the value of d is truncated to fit in the field. If this is not possible, the entire field is 
filled with dollar signs ($). 



EXAMPLES: 










FORMAT 


DATA ITEM 


RESULT 




E10.3 


+12.34 


_.123E+02 




E10.3 


-12.34 


„-.123E+02 




E12.4 


+12.34 


1234E+02 




E12.4 


-12.34 


_-.1234E+02 




E7.3 


+12.34 


.12E+02 




E5.1 


+12.34 


i «p J) i J) 
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input 

The E specification on input tells the formatter to interpret the next w positions in the record as 
a real number with exponent. The formatter then converts the field into a number and stores it into 
the variable specified in the variable list. 

The input field may consist of integer, fraction, and exponent subfields 

integer fraction exponent 
field field field 

+n n.n. . . .nE+ ee 

where the format equals Ew.d. 



Rules for E Field Input 

1. The width of the input item must not be greater than w characters, with w > d. 

2. Initial + and E are optional. 
Example: 123 _ = +123> 12+6 = 12-E6 

3. If E is present, the initial + of the exponent is optional. 
Example: 1234E06 

4. If the decimal point is left out, the formatter inserts it by multiplying the integer 
field by 10" d . 

Example: Jf format = £9A> T23456E+6 = 12.3456E+6 

5. Spaces are ignored in the Basic FORTRAN and 4K Formatter, but in the FORTRAN IV Formatter 
blanks are evaluated as zeroes (0). 

6. Any combination of integer field, fraction field, and exponent field is legal: 

123.456E6 

.456E6 

.456 
123. E6 
123. 

E6 
(all blanks = 0) 



NOTE: Input to F, G, D and I fields is interpreted in the same way as the 
E field. 
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THE F SPECIFICATION 



The F Specification defines a field for a fixed point real number (no exponent). 



Output 

On output, the F specification converts numbers (integer, real, or double precision) in a format by 
the presence of the F specification (Fw.d). The field is w positions in the output record. The 
variable is printed out right-justified in fixed-point form with d digits to the right of the decimal 
point: 

integer fraction 
field field (d) 

, . .X.XX. .X 



Where w is the total width of the field, the negative sign (-) is optional (positive numbers are 
unsigned), d is the length of the fraction field (empty if d=0). 

If w is greater than the number of positions required for the output value, the quantity is right 
justified in the field with spaces to the left. If w is not large enough to hold the data item, 
then the value of d is reduced to fit. If this is not possible, the entire field is filled with 
dollor signs ($). 



EXAMPLES: 












FORMAT 


DATA ITEM 


RESULT 




F10.3 


+12.34 




12.340 




F10.3 


-12.34 




-12.340 




F12.3 


+12.34 




„ 12.340 




F12.3 


-12.34 




-12.340 




F4.3 


+1 2 . 34 




12.3 




F4.3 


+12345. 


12 


$$$$ 



Input 

Input to an F field is identical to an E field. All the rules under the E specification apply 
equally to the F specification. 
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THE D SPECIFICATION 

The D specification is available only on the FORTRAN IV formatter. The effect is exactly the same 
as using an E specification with exception that on output "D" begins the exponent field instead 
of "E". 

EXAMPLES: 

D10.3 
D12.4 
D7.3 

THE G SPECIFICATION 

The G specification defines an external field for a real number. The magnitude of the number deter- 
mines whether or not there is an exponent field. 

Output 

On output, the G specification converts numbers (integer, real, or double precision) in memory into 
character form. The G field is defined in a format by the presence of the G specification (Gw.d). 
The field is w spaces wide, with d significant digits. The format of the output depends on the 
magnitude of the number (N): 

Magnitude Output Conversion 

0.1 < N<1 F(W-4).d,4X 

1 < N<10 F(W-4).(d-l),4X 



10 d " 2 <N<10 d " 1 F(W-4).1,4X 

10 d " 1 <N<10 d F(W-4).0,4X 

Otherwise sEw.d (s is scale factor) 

NOTE: The scale factor is applied only when the G conversion 
is done as E. 

Example Output 

The following real numbers are converted under a G10.3 specification: 

Number Output Format 

.05234 523E-J51 

.5234 _.523 

52.34 „„52.3 

523.4 _523 

5234. ...523E+04 

Input 

Input processing of a Gw.d specification is identical to that of an Ew.d specification. 
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THE SCALE FACTOR (FORTRAN IV ONLY) 

The optional scale factor for F,E,G, and D conversions is of the form: 

nP 

When n, the scale factor, is an integer constant or a minus followed by an integer constant. Upon 
initialization of the formatter, the scale factor equals zero. Once a scale factor is encountered, 
it remains in effect for all subsequent F,E,G and D fields until another scale is encountered. 

The scale factor effects are as follows: 

1. F,E,G,D input (provided no exponent exists in the external field): 

internally represented number equals externally represented number times ten raised to 
the -nth power. That is, IN=XN*10" n where IN and XN represent internal and external 
numbers, respectively. 

2. F,E,G,D, input with exponent field in external field: no effect. 

3. F output: external number equals internal number times ten raised to the nth power, ie, 

XN = IN*10 n 

4. E,D output: mantissa is multiplied by 10 n and the exponent is reduced by n. If n < 0, 
there will be -n leading zeroes and d + n significant digits to the right of the decimal 
point. If n>o, there will be n significant digits to the left of the decimal point and 
d-n + 1 to the right. The scale factor when applied to E and D output has the effect of 
shifiting the decimal point to the left or right and adjusting the exponent accordingly. 
Note that when n > 0, there are d + 1 significant digits in the external field. 

5. G output: If F conversion is used, the scale factor has no effect. If E conversion is 
used, the scale factor has the same effect as with E output. 

For example, 



Input conversion 






External field 


Format 


Internal number 


528.6 


1PF10.3 


52.86 


.5286E+03 


1PG10.3 


528.6 


528.6 


-2PD10.3 


52860. 



Output conversion 








Internal w 


jmber 


Format 


External field 


528.6 




1PF8.2 


,5286.00 


.5286 




2PE10.4 


52.860E-02 


5.286 




-1D10.4 


,.O529D+02 


52.86 




1PG10.3 


„„52.9 


-5286. 




1PG10.3 


-5.286E+03 
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THE I SPECIFICATION 



The I specification defines a field for decimal integer. 



Output 

On output, the I specification converts numbers (integer, real, or double precision) in memory into 
character form. The I field is defined in a format by the presence of the I specification (Iw). 
The field occupies w positions in the output record. The variable is converted to an integer, if 
necessary, and printed out right-justified in the field (spaces to the left) as: 



where 

x xd are the digits of the value, (max = 5), w is the width of the field in characters, 

and the minus sign (-) is present if the number is negative. 

If the output field is too short, the field is filled with dollar signs ($). 



Format 


Data Item 
-1234 


Result 


15 


-1234 


15 


+12345 


12345 


14 


+12345 


$$$$ 


16 


+12345 


J 2345 



Input 

The I specification on input (Iw) is equivalent to an Fw.O specifications. The input field is read 
in, the number is converted to the form suitable to the variable (integer, real, double real), and 
the binary value is stored in the variable location. 

During input, if a value is less than -32768 1Q , the value is converted to +32767. 



EXAMPLES: 














Format 


Input 


Fi 


eld 


Internal Result 




15 


-.123 






-123 




15 


120133 






12003 




14 


.102 






102 




11 


3 






3 
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0,K,@ SPECIFICATION (NOT AVAILABLE WITH 4K FORMATTER) 

These three specification types (0,K,@) are equivalent; they are all used to convert octal (base eight) 
numbers. 



Output 

On output, the octal specification (0,K,@) converts an integer value in memory into octal digits for 

output. The octal field is defined in a format by the presence of the 0(0w), K(Kw), or @(@w) 

specification. The field is w octal digits wide. The integer value is converted and right justified 
in the field as: 




where 



d, d are the octal digits (6 maximum) are lead spaces, and w is the width. 



If w is less than 6, the w least significant octal digits are written. 



Input 



On input, the octal specification tells the formatter to interpret the next w positions in the input 
record as an octal number. The formatter converts the digits into an octal integer and stores it 
into an integer variable. 

If w is greater than or equal to six, up to six octal digits are stored; non-octal digits with the 
field are ignored. 

If w is less than six or if less than six octal digits occur in the field, the result is right- 
justified in the variable with zeroes (0) to the left. 

If the value of the octal digits in the field is greater than 177777, the results are unpredictable. 



EXAMPLES: 










Format 


Input Field 


Internal Result 




@6 


123456 


123456 




@7 


-123456 


123456 




2K5 


2342342342 


023423 and 042342 




204 


.396E-05 


000036 and 000005 
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L SPECIFICATION 

The L specification allows input or output of logical values: 

TRUE = T (external), negative (internal) 
FALSE = F (external), non-negative (internal) 



Output 



On output, the L specification converts numbers (integer, real, or double precision) in memory into 
their external logical value (T or F). The L field is defined by the presence of the L specification 
(Lw). The field is w spaces wide, consisting of w-1 blanks followed by a T or F. 



Input 

On input, the L specification converts an external character field into the internal true of false 
of value. The L specification (Lw) specifies a field w spaces wide, consisting of optional blank, 
a T or F and optional trailing characters. A T is converted to -32,768 (100000 g ) and an F is con- 
verted to 0. 



A AND R SPECIFICATIONS (NOT AVAILABLE WITH 4K FORMATTER) 

The A and R specifications define a field of one or two ASCII characters. ASCII characters are 
stored as two 8-bit codes per integer variable. 



Output 

On output, the A and R specifications transfer ASCII character codes from memory to an external 
medium. The field is defined by an A or R specification (Aw or Rw). The field is w positions wide 
in the output record. For w > 2, A and R are equivalent: the field consists of w-2 blanks followed 
by two characters (first the character in the left or high-order bits part of the variable, then the 
character in the right part of the variable). 



For example: 










Variable 


Format 


Output Format 




AB 


A2 


AB 




AB 


R4 


„„AB 




AB 


A6 


„„AB 
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In order to output a string of characters, the repeat factor must be used. 

For example: 

Variable Format Output 

AB, CD, EF, GH 4A2 ABCDEFGH 

For w = 1, the FORTRAN IV and Basic FORTRAN formatters differ. 

Basic FORTRAN Formatter 

In Basic FORTRAN, the A specification is the same as the R. For w = 1 , A and R specify the character 
in the right half of the variable. 

For example: 

Variable Format Output 
XY Al or Rl Y 

FORTRAN IV Formatter 

The R specification is the same as in the Basic FORTRAN Formatter. 

The Al specification takes the character from the left half of the variable. 

For example: 

Variable Format Output 
XY Al X 



Input 

On input, the A and R specifications transfer ASCII character codes from an external medium to in- 
ternal memory. The field is defined by an A or R specification (Aw or Rw). The field is w positions 
wide. If w > 2, the right most two characters are taken from the input field. 



For example: 










Input Field 


Format 


Variable 




MN 


A2 


MN 




MNOP 


R4 


OP 




MNOPQR 


A6 


QR 
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In order to read in a string of more than two characters, the repeat factor must be used. 



For example: 



Input Field 

MNOPQRSTUV 
FGHIJK 



Format 

5A2 
3A2 



Variable 

MN,OP,QR,ST,UV 
FG.HI.JK 



For w = 1, the FORTRAN IV and Basic FORTRAN Formatter differ. 



Basic FORTRAN Formatter 

In Basic FORTRAN the A is the same as the R. For w = 1 , A and R read in one character and places it 
in the right half of the variable with binary zeroes in the left. 



For example: 



Input 
X 



Format 
Al or Rl 



Variable 






oooooooo 2 


X 



left right 
computer word 



FORTRAN IV Formatter 



The R spcification is the same as in the Basic FORTRAN Formatter. 

For Al, one character is read in and placed in the left half of the computer word. An ASCII blank 
is placed in the right half. 



For example: 



Input 
X 



Format 



Al 



Variable 



Compatibility 

The FORTRAN IV Formatter can be modified at run-time to interpret A as in Basic FORTRAN. This is 
done by calling the OLDIO entry point: 

CALL OLDIO 
To change back to a FORTRAN IV A specification call NEWIO: 

CALL NEWIO 
The FORTRAN IV Formatter always begins operation in the NEWIO state. 
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X SPECIFICATION 

The X specification produces spaces on output and skips characters on input. The comma (,) following 
X in the format is optional. 



Output 

On output, the X specification causes spaces to be inserted in the output record. The X field is 
defined by the presence of an X specification (nX) in the format, where n is the number of spaces 
to be inserted. (X alone = IX; 0X is not permitted.) 



Examples 



Format 
E8.3,5X,F6.2,5X,I4 

Data Values 

+123.4, -12.34, -123 

Output Field 

.123E+03 -12.34 -123 



Input 

On input, the X specification causes characters to be skipped in the input record. The X field is 
defined by the presence of an X specification (nX) in the format, where n is the number of characters 
to be skipped. (X alone = IX; 0X is not permitted.) 



Exampl e 



Format 

8X,I2,10X,F4.2,10X,F5.2 

Input Field 

WEIGHT „J0_PRICE_$1.98_TOTAUJ19.8O 

Internal Values 

10, 1.98, 19.80 
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" ", H SPECIFICATIONS (Literal Strings) 

The H and " " specifications provide for the transfer, without conversion, of a series of ASCII 
characters (except that quotation marks -"- cannot be transferred using " "). A comma after this 
specification is optional. 

Output 

On output, the ASCII characters in the format specification (there is no associated variable since 
this is only an editing specification) are output as headings, comments, titles, etc. The specifi- 
cations are of the form: 

nHc!C 2 ...c n or "c 1 c 2 ...c n " 



n is the numbers of characters to be transmitted, Cic 2 ...c are the characters themselves, 



where 

and H or "..." are the specification types. 

(H alone = 1H; 0H is not permitted.) 

Note that with " ", the field length is not specified; that is determined by the number of characters 
between the quotation marks. 



Examples: 



Format Result 

20H.THIS.IS.AN.EXAMPLE JHIS IS AN EXAMPLE 

"THIS.ALSO.IS.AN. EXAMPLE" THIS.ALSO JS.AN^EXAMPLE 

3"ABC" ABCABCABC 



Input 



If H is used on input, the number of characters needed to fill the specification is transmitted from 
the input record to the format. A subsequent output statement will transfer the new heading to the 
output record. In this way, headings can be altered at run-time. 

If " " is used on input, the number of characters within the quotation marks is skipped on the input 
field. 



Example: 



Format 



31H„ 



Input 

HJNPUT.ALLOWS.VARIABLE. HEADERS 

Result 

31 HHJNPUT.ALLOWS. VARIABLE. HEADERS 
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/ SPECIFICATION 

The / specification terminates the current record. The / may appear anywhere in the format and need 
not be set off by commas. Several records may be skipped by preceding the slash with a repetition 
factor (r-1 reocrds are skipped for r/). 

On output, a new record means a new line (list device), a carriage return-linefeed (punch device), 
or an end-of-record (magnetic tape). Formatted I/O records can be up to 67 words 034 characters) 
long. 

On input, a new record is a new "unit record" (card reader), is terminated by a carriage return- 
linefeed (teleprinter), or is terminated by an end-of-record (magnetic tape). 

NOTE: When the formatter reaches the end of a format and still 
has values to output, it starts a new record. 



Examples: 



Format 

22X.6HBUDGET/// 6HWEIGHT.6X, 5HPRICE.9X, 
5HT0TAL.8X 

Result 

(line 1) „„„„ _„ BUDGET 

(line 2) 
(line 3) 

(line 4) WEIGHT PRICE „ TOTAL, 
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HOW TO PUT FORMATS TOGETHER 

1. When two specifications follow each other they are concatenated. 

E field I field 

Format: E9.4.I6 



9 characters 



6 characters 



To leave space between numbers use X. 

E field 
Format: E9.4.3X.I6 

To start a new Line, use / 
Format: E9.4/I6 



I field 



9 characters 


3 characters 


6 characters 



E field 



9 characters 



I field 



6 characters 



E 


X 


I 


I 



4. Specifications can be gathered together into groups and surrounded by parenthesis. 
Example: (E9.3, 2X, 16) 

These groups can be nested one level deep, except in the FORTRAN IV Formatter they can be four levels 
deep. For example, 

(E9.3,3(2X,I6)) 



E 


X 


I 


X 


I 


X 


I 



(E9.3,3(2X,I6)2X,2(I8): 



E 


X 


I 


X 


I 


X 


I 


X 


I 



5. Use the repetition factor to repeat single specifications (except nH) or groups of 
specifications. This is done by preceding the specification or parenthetical groups 
with a repeat count, r. THe conversion is repeated up to r times, unless the list of 
variables is exhausted first. 

3(E9.3,2X,I6,2X)/ 



E 


X 


I 


X 


E 


X 


I 


X 


E 


X 


I 


« 




E 


X 


I 


X 


E 


X 


I 


X 


E 


X 


I 


X 



6. Use the principle of unlimited groups -- when the formatter has exhausted the specifications 
of a format and still has list items left, it inputs a new record for a READ or outputs 
the present record for a WRITE and returns to the last, outer-most unlimited group within 
the format. An unlimited group is a set of specifications enclosed In parenthesis. If 
the format has no unlimited groups, the formatter returns to the beginning of the format. 
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Example: Format = (15, 2(3X,F8. 4,8(12)) -j 

Format = (15, 2(3X,F8. 4, 8(1212)) ,4X, 3(16) ) n 
Format = (I5,3X,4F8.4,3X) -| 

7. Keep in mind the accuracy limitations of your data. Although the formatter will print 
out or read in as many digits as specified, only certain digits are significant: 

Integer variables can be between -32,768, Q and +32 ,767, q. 

Floating-point numbers can guarantee 6 digits of accuracy (plus exponent). 

Double precision can guarantee 11 digits of accuracy (plus exponent). 

8. On input to the FORTRAN IV formatter blanks are interpreted as zero digits, while on 
input to the other two formatters, blanks are not evaluated as part of the data item. 

The FORTRAN IV Formatter can be made to act exactly as the other Formatters do by 
calling entry point OLDIO. This condition can be reversed by calling entry point NEWIO. 
These calls are made in FORTRAN as: 

CALL OLDIO 
CALL NEWIO 

In Assembly Language as: 

JSB OLDIO JSB NEWIO 
DEF *+l DEF *+l 
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FREE FIELD INPUT 

When free field input is used, a format is not necessary. Special symbols included within the data 
direct the conversion process: 



space or, 

I 

+ - 

. E + - D 

La 



Data item delimiters 
Record terminator 
Sign of item 
Floating point number 
Octal integer 
Comments 



All other ASCII non-numeric characters are treated as spaces (and delimiters). Free field input 
may be used for numeric data only. 



FORTRAN 



In FORTRAN, a free field input operation has this form: 

READ (unit, *) variable list 

ALGOL 

In ALGOL, a free field input operation has this form: 

READ (unit, *, variable list); 

Data Item Delimiters 



Any contiguous string of numeric and special formatting characters occuring between two commas, a 
comma and a space, or two spaces, is a data item whose value corresponds to a list element. A 
string of consecutive spaces is equivalent to one space. Two consecutive commas indicate that no 
data item is supplied for the corresponding list element; the current value of the list element 
is unchanged. An initial comma causes the first list element to be skipped. 



EXAMPLES: 

1) 

READ(5,*)I,J,K,L 
Input data: 1720, 1966, 1980, 1392 



2) 

READ(5,*)I,J,K,L 
Input data: 1266,, 1794, 2000 
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Result: I contains 1720 

J contains 1966 

K contains 1980 

L contains 1392 



Result: I contains 1266 

J contains 1966 

K contains 1974 

L contains 2000 



Floating Point Input 

The symbols used to indicate a floating point data item are the same as those used in representing 
floating point data for FORMAT statement directed input: 

Integer Fraction Exponent 
Field v Field Field 
\ \ t 

+n. ..n.n.. .n+ee 
n * E 

; D (in FORTRAN IV only) 

decimal point 
If the decimal point is not present, it is assumed to follow the last digit. 



EXAMPLES: 



READ(5,*)A,B,C,D,E 



Input Data: 3.14, 314E-2, 3140-3, .0314+2, .314E1 



All are equivalent to 3.14 



Octal Input 



An octal input item has the following format: 



@x r ..x d 



The symbol @ defines an octal integer. The x's are octal digits each in the range of through 7. 
List elements corresponding to the octal data items must be type integer. 
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Record Terminator 

A slash within a record causes the next record to be read as a continuation of the data list, the 
remainder of the current record is skipped as comments. 

Example: 



READ(5,*)II,JJ,KK,LL,MM 



Input data: 987, 654, 321, 123/DESCENDING 
456 



Result: II contains 987 

JJ contains 654 

KK contains 321 

LL contains 123 

MM contains 456 



List Terminator 

If a line terminates (with a carriage return and linefeed) and a slash has not been encountered, 
the input operation terminates even though all list elements may not have been processed. The 
current values of remaining elements are unchanged. 

EXAMPLES: 



READ(5,*)A,B,C,J,X,Y,Z 

Input Data: 

A=7.987 B=5E2 C=4.6859E-3 carriage return and linefeed 
J=3456 carriage return and linefeed 

Result: A contains 7.987 
B contains 5E2 
C contains 4.6859E-3 

J,X,Y,Z are unchanged. 
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Comments 

All characters appearing between a pair of quotation marks in the same line are considered to 
be comments and are ignored. 

EXAMPLES: 

"6.7321" is a comment and ignored 

6.7321 is a real number 
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UNFORMATTED INPUT /OUTPUT 



Read and write operations can be unformatted as well as formatted. On an unformatted operation, 
binary values are transferred to or from a specified logical unit without any conversion. 

In FORTRAN, an unformatted READ statement has the form: 

READ (unit) variable list 

Binary records are read in from unit and assigned serially to the locations in the variable list. 
In ALGOL, an unformatted READ statement has the form: 

READ (unit, variable list) 

In FORTRAN, an unformatted WRITE statement has the form: 

WRITE (unit) variable list 

The values in the variable list are packed into physical records of 60 words each and are output 
to the unit specified. The variable list which may consist of several physical records, is called 
a logical record. 

In ALGOL, an unformatted WRITE statement has the form: 

WRITE (unit, variable list) 

In Assembly Language, the program calls the formatter directly. (See "Assembly Language Calling 

Sequences . ") 



Records 



Unformatted I/O through the formatter is limited to physical records of 60 words maximum. If a 
variable list contains more than 60 words of data, the data is broken into more than one record. 
(For example, 100 words of data are broken into two records of 60 and 40 words each.) 

When paper tape or unit record devices are used, (teleprinter, mark sense card reader etc.) how- 
ever, only 59 words of each record contain data. The first word issued is for the record length. 
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ASSEMBLY LANGUAGE CALLING SEQUENCES 

In FORTRAN and ALGOL, when the programmer uses a READ or WRITE statement the compiler generates 
all the necessary calls to the Formatter. 

In Assembly Language the programmer is responsible for all calls to the Formatter. For each I/O 
operation, the program must first make an "Initialization" call (entry points . DIO and .BIO). This 
call establishes the format to be used (if any), and the logical unit and a way to say whether the 
operation is input or output. Then, for each data item, the program must make a separate call which 
depends on the type of data. Finally, for output only, the program must make a termination call 
that tells the Formatter to output the last record. 

Figure 3-1 flowcharts the process of selecting an input calling sequence. Figure 3-2 flowcharts 
the output calling sequence. 

Variable items in the calling sequences include: 



unit 

forma t 



end of list 



real 
integer 
double 
length 



address 



is the logical unit number of the desired I/O device. 

is the label of an ASC psuedo-instruction that defines the format 
specification. 

is the location following the last data call to the formatter. When an 
error occurs in the format specification or the input data, the formatter 
returns to this location. 

is the address of the real variable. 

is the address of the integer variable. 

is the address of the double precision variable 

is the number of elements (not the number of memory locations) in the 
array. Maximum length of an external physical record is 67 words for 
formatted data and 60 words for binary data. Formatted data blocks can 
be of any length if the format breaks the data in multiple records using 
"/" and unlimited groups. If binary data exceeds 60 words, the record 
is read in or written out and the formatter skips to the next record. 
(Note: For this reason, binary data should be read in with the same 
variable list as that used to write it out.) 

is the first location of the array. 
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INPUT 
SELECTING A CALLING SEQUENCE 



START 




± 



INITIAL CALL 



LDA unit 
CLB, INB 
JSB .BIO. 



V 



A 



INITIAL CALL 



LDA unit 

CLB, INB 

JSB .DIO. 

OCT 

DEF end of list 



-> 



REAL 



^L 



DATA CALL 



LDA Length 
LDB Address 
JSB .RAR. 



^L 



_^_ 



INITIAL CALL 



LDA unit 

CLB, INB 

JSB .DIO. 

DEF format 

DEF end of list 




-^end) 



DOUBLE PREC. 



REAL 



INTEGER 



JL 



DATA CALL 



LDA Length 
LDA Address 
JSB .IAR. 



±. 



XL 



DATA CALL 



JSB .XAY. 
DEF Address 
DEC Length 



_^_ 




DOUBLE PREC. 



±. 



DATA CALL 



JSB . IOR. 

DST Real 



INTEGER 



X- 



DATA CALL 



JSB .101. 
STA Integer 



±- 



DATA CALL 



JSB .XIO. 

DEF Double 



JL 



_Nk_ 
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OUTPUT 
SELECTING A CALLING SEQUENCE 



REAL 



DATA CALL 



LDA Length 
LDB Address 
JSB .RAR. 



INTEGER 



DATA CALL 



LDA Length 
LDA Address 
JSB .IAR. 





YES S 


\/ 


INITIAL CALL 


LDA unit 


CLB 


JSB .DIO. 


DEF format 


DEF end of list 




YES 




DOUBLE PREC. 



INITIAL CALL 



LDA unit 

CLB 

JSB .BIO 




^ 



REAL 



JL 



DATA CALL 



JSB .XAY. 
DEF Address 
DEC Length 



^k. 



DATA CALL 



DLD Real 
JSB .IOR. 



TERMINATION CALL 
JSB .DTA. 




INTEGER 



DATA CALL 



LDA Integer 
JSB .101. 




A 



DOUBLE PREC. 



_&_ 



DATA CALL 



JSB .XIO. 
DEF Double 



Nk_ 



_¥_ 



^L 



^L 
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NOTES 

1. Double precision calls are available only in the FORTRAN IV Formatter. 

2. In the FORTRAN IV Formatter, there are alternative calling sequences for data items: 

Real Variable Real Arrays 

JSB .RIO. JSB .RAY. 

DEF real DEF address 

DEC length 
Integer Variables Integer Arrays 

JSB .110. JSB .IAY. 

DEF integer DEF address 

DEC length 

3. Also in the FORTRAN IV Formatter, the statement "DEC length" in array calling sequences can 
be replaced by "DEF L,I" where L is defined elsewhere in the program as the array length. 
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INTERNAL CONVERSION 

The Formatter provides the programmer with the option of using the conversion parts of the Formatter 
only without any input or output. This process is called "internal conversion." 

On "input", ASCII data is read from a buffer and converted according to a format (or free field) 
into a variable list. (This is known as decoding.) 

On "output", binary data is converted to ASCII according to a format and stored in a buffer. (This 
is known as encoding.) 

Internal Conversion Calling Sequence 

Output (Binary to ASCII Conversion): ENCODING 

CLA 

CLB 

JSB .DIO. 

DEF buffer (destination) 

DEF format 

DEF end of list 

Calls to define each variable 
(Same as regular calls) 

Termination Call 

(Same as regular calls) 

where buffer is a storage area for the ASCII "output" to be stored into. 



Input (ASCII to Binary Conversion); DECODING 

Formatter Free Field 

CLA CLA 

CLB, INB CLB, INB 

JSB .DIO. JSB .DIO. 

DEF buffer DEF buffer 

DEF format ABS 

DEF end of list DEF end of list 

Calls to define each variable 
(Same as regular calls) 

where buffer is a storage area containing ASCII characters which will be converted by the 
Formatter into binary values. 
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NOTES 

1. Internal conversion ignores "/" specifications or unlimited groups. The concept of records does 
not apply during internal conversion. 

2. In FORTRAN, internal conversion can be used through the subroutine CODE. A call to CODE must 
immediately precede a READ or WRITE request where the identifier of an ASCII record buffer (array 
name) replaces the logical unit number. Any labels must be attached to the CODE call, as it and 
the READ/WRITE statement are treated as one statement. Also, the identifier of the ASCII record 
buffer should not be a dummy argument (formal parameter) of a subprogram. 

The calling sequences are: 

CALL CODE 

READ (buffer, format) variable list 

CALL CODE 

WRITE (buffer, format) variable list 

3. In ALGOL, the entry point ACODE is used for internal conversion (since CODE is a reserved 
word). ACODE must be declared an "code" procedure before being called. 

4. FORTRAN IV does not allow a subscripted variable in a READ statement. Therefore, the calling 
sequence must be: 

DIMENSION IRRAY(IO) 



CALL CODE 

READ (IRRAY, format) variable list 

or 



CALL CODE 

WRITE (IRRAY, format) variable list 



3-29 



BUFFERED I /O WITH THE FORMATTER 

Normally, when a program uses the Formatter, it can only execute one I/O operation at a time. 
However, the internal conversion feature of the Formatter can be used with direct calls to .IOC. 
(through the MAGTP subroutine) to provide both buffered and formatter I/O. 

The following flowchart shows how a program can read in data from two units (Ul and U2) into two 
buffers (Bl and B2) at the same time by calling .IOC. When unit Ul is complete, buffer Bl is 
converted into list LI by the Formatter (while input continues on unit U2). 























f START J 
















.IOC. - Begin read 
from Ul into Bl 
















Ul = U2 


) 


No 


nI/ 










Yes 






.IOC. - Begin read 
from U2 into B2 






X 


















[ .IOC. - Ul complete? 


1 




^ 






No 




No 












Yes 




f .IOC. - Ul complete } 










Yes 






.IOC. - Begin read 
from U2 into B2 














s 








V 






FRMTR - Convert Bl 
into LI 








"s 












S 




f .IOC. - U2 complete? 


) 






No 








Yes 








FRMTR - Convert B2 
into L2 








^) 
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EXAMPLE CALLING SEQUENCES 



EXAMPLE 1: FORMATTED INPUT 



Purpose 



A 20 character double precision number and a 10 character integer are read and converted from the 
first record. 80 characters are read from the second record and stored in ASCII form in the array 
ALPHA. Execution continues with the instruction at ENDLS. 



LDA 


INPUT 


CLB.INB 




JSB 


.DIO. 


DEF 


FMT 


DEF 


ENDLS 


JSB 


.XIO. 


DEF 


DP 


JSB 


.110. 


DEF 


I 


JSB 


.IAY. 


DEF 


ALPHA 


DEC 


80 



ENDLS 



Input unit number 

Input flag 

Initialization enterance 

Location of format 

End of list 

Declare double precision variable 

Location of variable 

Declare integer variable 

Location 

Declare integer array 

Location 

Number of elements 

(Continue program here) 



INPUT 


DEC 


1 


DP 


BSS 


3 


I 


BSS 


1 


ALPHA 


BSS 


80 


FMT 


ASC 


9, 



9,(D2O.12,I10/8OAi; 



Unit number 

Double precision variable 

Integer variable 

Integer array 

Format specification 
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EXAMPLE 2: UNFORMATTED OUTPUT EXAMPLE 



Purpose 



1000 2-word elements in the array ARRAY are punched on the standard punch unit. The output will 
consist of 60 word records (59 data words and 1 control word) until the entire array is punched. 



LDA PUNCH 

CLB 

JSB .BIO 

LDA =01000 

LDB ADRES 

JSB .RAR. 

JSB .DTA. 



Output unit number 

Output flag 

Binary initialization enterance 

Number of elements in array 

Location of array 

Real (2-word) array enterance 

Output termination 



PUNCH DEC 4 
ADRES DEF ARRAY 
ARRAY BSS 2000 



Unit number 

Location of ARRAY 

Defines 1000 2-word elements. 



EXAMPLE 3: INTERNAL CONVERSION AND FREE FIELD INPUT 



Purpose 



The ASCII data starting at BUFFR is converted in free field form to binary. R will contain the 
binary representation of .0001234 and I will contain the binary representation of 28. 

Internal conversion flag 
ASCII to binary flag 
Initialization enterance 
Location of ASCII data 
Specifies ASCII data is in free-field form 
End of list 
Declare real variable 
Store binary item in R 
Declare integer variable 
Store in I 
ENDLS - 



CLA 




CLB.INB 




JSB 


.DIO. 


DEF 


BUFFR 


ABS 





DEF 


ENDLS 


JSB 


.IOR. 


DST 


R 


JSB 


.101. 


STA 


I 



R 


BSS 


2 


I 


BSS 


1 


BUFFR 


ASC 


6,123.4E-6,28 



Real variable 

Integer variable 

ASCII data to be converted to binary. 
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INDICES 



INDEX I 



LIB.w, K4N.W, EAU.w, K4E.W 

n is the revision letter 

In EAU.w and K4E.W, .EAU. replaces MPY, DIV, DLDST. 



Name 



Page Reference 


Name 












Page Reference 


2-17 


.RTOI 












1-87 


3-1 


.ITO I 












1-84 


2-4 


.PRAM 












2-70 


2-15 


FDV 












1-41 


2-43 


FMP 












1-43 


2-62 


.MAP. 












2-66 


2-47 


.IENT 












1-83 


2-54 


FLOAT 












1-42 


2-41 


.PACK 












1-85 


2-44 


LEADR 












2-13 


2-50 


.ENTR 












2-63 


2-56 


ENTIE 












1-37 


2-46 


.EAU. 


(EAU libraries only) 




1-79 


2-49 


MPY 


(Non- 


•EAU 


libraries 


on 


ly) 


1-54 


2-45 


DIV 


(Non- 


■EAU 


libraries 


on 


iy) 


1-29 


2-59 


DLDST 


(Non- 


-EAU 


libraries 


on 


iy) 


1-30 


2-40 


GETAD 












2-10 


2-57 


IFIX 












1-48 


2-42 


ERR0 












2-8 


2-53 


EXEC 












2-9 


2-55 


.PAUS 












2-68 


2-58 


.STOP 












2-71 


1-65 


ISIGN 












1-51 


1-64 


.ERRR 












2-64 


1-7 


PWR2 












1-58 


1-88 


.GOTO 












2-65 


1-39 


.SWCH 












2-72 


1-63 


.FLUN 












1-80 


1-4 


MANT 












1-52 


1-60 


IAND 












1-45 


1-13 


I OR 












1-50 


1-61 


IABS 












1-44 


1-1 


OVF 












2-19 


1-95 


ISSW 












2-12 


1-94 


ENDIO 












2-7 


1-40 


.TAPE 












2-73 


2-26 


CLRIO 












2-3 


2-11 

















MEMRY 

FRMTR 

CODE 

MAGTP 

%ANH 

%XP 

%m 
%os 

%AN 

%BS 

%L0G 

%QRT 

SSIGN 

%L0AT 

%FIX 

%TAN 

%ABS 

%SIGN 

%AND 

%0R 

%0T 

%SSW 

TANH 

TAN 

ATAN 

.RTOR 

EXP 

SQRT 

ALOG 

SICOS 

CHEBY 

SIGN 

ABS 

..FCM 

..DLC 

FADSB 

PTAPE 

INDEX 
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INDEX II 

FTN4w and F4D.» 
n is the revision letter 



Name 



FMTIO (F4D.W only) 

FRMTR 

%INT 

%NT 

%L0GT 

$SQRT 

$L0GT 

$L0G 

$EXP 

#C0S 

#SIN 

#L0G 

#EXP 

.RTOD 

.DTOR 

.DTOD 

DEXP 

ALOGT 

DLOGT 

DLOG 

DATN2 

DATAN 

DCOS 

DSIN 

XPOLY 

ENTIX 

DSQRT 

CLOG 

ATAN2 

CSQRT 

CABS 

CEXP 

CSNCS 

DMOD 

.DTOI 

.CTOI 

DABS 

AMOD 



Page Reference 


Name 


Page Reference 


3-1 


MOD 


1-53 


3-1 


AINT 


1-3 


2-48 


INT 


1-49 


2-52 


IDINT 


1-47 


2-51 


DDINT 


1-26 


2-39 


MXMNI 


1-55 


2-38 


MXMNR 


1-57 


2-37 


MXMND 


1-56 


2-36 


DSIGN 


1-34 


2-32 


DIM 


1-28 


2-35 


IDIM 


1-46 


2-34 


.CFER 


1-71 


2-33 


..CCM 


1-92 


1-86 


..MAP 


2-75 


1-78 


.IDBL 


1-82 


1-75 


. ICPX 


1-81 


1-27 


.DCPX 


1-74 


1-5 


.DINT 


1-75 


1-32 


.CI NT 


1-72 


1-31 


.CDBL 


1-70 


1-23 


REAL 


1-59 


1-22 


A I MAG 


1-2 


1-25 


CMPLX 


1-15 


1-34 


CONJG 


1-17 


1-69 


DBLE 


1-24 


1-38 


SNGL 


1-62 


1-36 


XADSB 


1-66 


1-14 


XMPY 


1-68 


1-8 


XDIV 


1-67 


1-19 


CADD 


1-10 


1-9 


CSUB 


1-20 


1-12 


CMPY 


1-16 


1-18 


CDIV 


1-11 


1-33 


..DCM 


1-93 


1-77 


.XPAK 


1-91 


1-73 


.XCOM 


1-89 


1-21 


.XFER 


1-90 


1-6 


.PCAD (F4D.W only) 


2-69 



II-l 



INDEX III 



F2E.W and F2N.W 

n is the revision letter 

In F2E.W, .EAU. replaces MPY, DIV, DLDST. 



Name 



CLRIO 

%ANH 

%XP 

%IN 

%0S 

%AN 

%BS 

%L0G 

2SQRT 

%IGN 

?,LOAT 

%FIX 

CTAN 

MBS 

%SIGN 

%AND 

%OR 

%ssw 

GETAD 

TANH 

.RTOR 

TAN 

EXP 

SICOS 

SQRT 

SIGN 

ALOG 

.IENT 

ABS 

ATAN 

PWR2 

FDV 

FMP 

..FCM 

FADSB 

.RTOI 

.ITOI 

ISIGN 



Page Reference 


Name 










Page Reference 


2-3 


CHEBY 










1-13 


2-43 


MANT 










1-52 


2-62 


PTAPE 










2-26 


2-47 


MAGTP 










2-15 


2-54 


.ENTR 










2-63 


2-41 


IFIX 










1-48 


2-44 


FLOAT 










1-42 


2-50 


.FLUN 










1-70 


2-56 


.PACK 










1-85 


2-46 


..DLC 










1-94 


2-49 


.GOTO 










2-65 


2-45 


IAND 










1-45 


2-59 


IOR 










1-50 


2-40 


OVF 










2-19 


2-57 


ISSW 










2-12 


2-42 


.MAP. 










2-66 


2-53 


RMPAR 










2-27 


2-55 


CODE 










2-4 


2-58 


ENTIE 










1-37 


2-10 


.SWCH 










2-72 


1-65 


.PRAM 










2-70 


1-88 


INDEX 










2-11 


1-64 


7.WRIS 










2-60 


1-39 


PAUSE 










2-20 


1-60 


ERR0 










2-8 


1-63 


BINRY 










2-2 


1-61 


SREAD 










2-29 


1-4 


%WRIT 










2-61 


1-83 


.ZRLB 










2-74 


1-1 


.OPSY 










2-67 


1-7 


.TAPE 










2-73 


1-58 


DEBUG 










2-6 


1-41 


DBKPT 










2-5 


1-43 


.EAU. 


(EAU 


libi 


-aries only) 


1-79 


1-95 


DLDST 


(Non- 


■EAU 


libraries 


only) 


1-30 


1-40 


MPY 


(Non- 


■EAU 


libraries 


only) 


1-54 


1-87 


DIV 


(Non- 


-EAU 


libraries 


only) 


1-29 


1-84 














1-51 















III-l 



INDEX IV 

Plotter Libraries 



Name Page Reference 

LINE 2-14 

AXIS 2-1 

SCALE 2-28 

NVMB 2-18 

SYMB 2-30 

PLDT 2-21 



IV-1 



INDEX V 



ALL ENTRY POINTS 



NAME 



PAGE 



NAME 



PAGE 



NAME 



PAGE 



ABS 


1-1 


ACODE 


2-4 


ADRES 


2-10 


A I MAG 


1-2 


AINT 


1-3 


ALOG 


1-4 


ALOGT 


1-5 


AMAXO 


1-56 


AMAX1 


1-57 


AMINO 


1-56 


AMIN1 


1-57 


AMOD 


1-6 


ARCTA 


1-7 


ATAN 


1-7 


ATAN2 


1-8 


AXIS 


2-1 


BFINP 


2-15 


BFOUT 


2-15 


BREAD 


2-2 


BWRIT 


2-2 


CABS 


1-9 


CADO 


1-10 


CCOS 


1-18 


CDIV 


1-11 


CEXP 


1-12 


CLEAR 


2-15 


CLOG 


1-14 


CLRIO 


2-3 


CMPLX 


1-15 


CMPY 


1-16 


CODE 


2-4 


CONJG 


1-17 


COS 


1-60 


CSIN 


1-18 


CSQRT 


1-19 


CSUB 


1-20 


DABS 


1-21 


DATAN 


1-22 


DATN2 


1-23 


DBLE 


1-24 


DCOS 


1-25 


DDINT 


1-26 



DEXP 


1-27 


DIM 


1-28 


DLOG 


1-31 


DLOGT 


1-32 


DMAX1 


1-55 


DMIN1 


1-55 


DMOD 


1-33 


DSIGN 


1-34 


DSIN 


1-35 


DSQRT 


1-36 


ENDIO 


2-7 


ENTIE 


1-37 


ENTIX 


1-38 


ERRO 


2-8 


EXEC 


2-9 


EXP 


1-39 


FACT 


2-24 


FLOAT 


1-42 


GAP3 


2-15 


GETAD 


2-10 


IABS 


1-44 


IAND 


1-45 


IDIM 


1-46 


IDINT 


1-47 


IEOF 


2-15 


I EOT 


2-15 


IERR 


2-15 


IFIX 


1-48 


INT 


1-49 


IOR 


1-50 


ISIGN 


1-51 


I SOT 


2-15 


ISSW 


2-12 


IUNIT 


2-15 


IWRDS 


2-15 


LEADR 


2-13 


LINE 


2-14 


LN 


1-4 


LOCAL 


2-15 


MAXO 


1-56 


MAX1 


1-57 


MINO 


1-56 



MINI 


1-57 


MOD 


1-53 


NUMB 


2-18 


OVF 


2-19 


PLOT 


2-22 


PLOTB 


2-25 


PLTLU 


2-23 


PTAPE 


2-26 


REAL 


1-59 


RMPAR 


2-27 


RWSTB 


2-15 


SCALE 


2-28 


SIGN 


1-61 


SIN 


1-60 


SNGL 


1-62 


SORT 


1-63 


SYMB 


2-30 


TAN 


1-64 


TANH 


1-65 


WHERE 


2-24 


XADD 


1-66 


XDIV 


1-67 


XMPY 


1-68 


XPOLY 


1-69 


XSUB 


1-66 


#COS 


2-32 


#EXP 


2-33 


#LOG 


2-34 


#SIN 


2-35 


$DBP2 


2-5 


$EXP 


2-36 


$LOG 


2-37 


$LOGT 


2-38 


$MEMR 


2-5 


$SQRT 


2-39 


%ABS 


2-40 


%AN 


2-41 


%AND 


2-42 


%ANH 


2-43 


%B5 


2-44 


%FIX 


2-45 


%IGN 


2-46 



V-l 



INDEX 
NAME PAGE NAME PAGE NAME PAGE 



%IN 


2-47 


%wi 


2-48 


%JFIL 


2-29 


%LOAT 


2-49 


%LOG 


2-50 


%LOGT 


2-51 


%m 


2-52 


MR 


2-53 


%0S 


2-54 


%0T 


2-55 


%RDSC 


2-29 


%READ 


2-29 


%QRT 


2-56 


2SSIGN 


2-57 


%SSW 


2-58 


CTAN 


2-59 


%WEOF 


2-60 


%WRIF 


2-61 


%WRIN 


2-60 


%WRIS 


2-60 


%WRIT 


2-61 


%XP 


2-62 


.ALC. 


2-17 


.BIO. 


3-25 




3-26 


.CADD 


1-10 


.CDBL 


1-10 


.CDIV 


1-11 


.CFER 


1-71 


.CHEB 


1-13 


.CINT 


1-72 


.CLR. 


2-17 


.CMPY 


1-16 


.CSUB 


1-20 


.CTOI 


1-73 


.DCPZ 


1-74 


.DFER 


1-90 


.DINT 


1-75 


.DIO. 


3-25 




3-26 


-DIV 


1-29 




1-79 


.DLD 


1-30 




1-79 


.DST 


1-30 




1-79 



.DTOD 


1-76 


.DTOI 


1-77 


.DTOR 


1-78 


.ENTP 


2-63 


.ENTR 


2-63 


.ERRR 


2-64 


.FAD 


1-40 


.FDV 


1-41 


.FLUN 


1-80 


.FMP 


1-43 


.FSB 


1-40 


.GOTO 


2-65 


.IAR. 


3-25 
3-26 


.IAY. 


3-27 


.ICPX 


1-81 


.IDBL 


1-82 


.IENT 


1-83 


.110. 


3-27 


.INDA 


2-11 


.INDR 


2-11 


.101. 


3-25 
3-26 


.IOR. 


3-25 
3-26 


.ITOI 


1-84 


.MANT 


1-52 


.MAP. 


2-66 


.MPY 


1-54 
1-79 


.OPSY 


2-67 


.PACK 


1-85 


.PAUS 


2-20 
2-68 


.PCAD 


2-69 


.PRAM 


2-70 


.PWR2 


1-58 


.RAR. 


3-25 
3-26 


.RAY. 


3-27 


.RIO. 


3-27 


.RND 


1-37 


,RTN. 


2-17 


,RTOD 


1-86 


.RTOI 


1-87 


,RTOR 


1-88 


.STOP 


2-20 
2-71 



.SWCH 


2-72 


.TAPE 


2-73 


.XADD 


1-66 


.XAY. 


3-25 




3-26 


.XCOM 


1-89 


.XDIV 


1-67 


.XENT 


1-38 


.XFER 


1-90 


.XIO. 


3-25 




3-26 


.XMPY 


1-68 


.XPAK 


1-91 


.XPLY 


1-69 


.ZRLB 


2-74 


..CCM 


1-92 


..DCM 


1-93 


..DLC 


1-94 


..FCM 


1-95 


..MAP 


2-75 



V-2 
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